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318F 

E 8 

1520 

I NX 


3190 

C 8 

1530 

INY 


3 1 9 1 

D0F5 

1540 

BNE C9? 


3193 

60 

1550 OUT 

? RTS 


3194 


1560 WINMES 


3194 

E1F3E3E9 

1570 

. BYTE "ascii" 

5 0 

3198 

E900 




319ft 

E1F4E1F2 

I 580 

.BYTE "atari" 

; 6 

319E 

E900 




31ft0 

EFEE8000 

1590 

.BYTE "on" ; 1 

2 ft T ft R I 

3 1 ft4 

EFE6E600 

1 600 

.BYTE "off" ; 

1 6 

3ift8 

E6F5ECEC 

1 6 1 0 

.BYTE "full" 

$ 20 

31ftC 

00 




31ftD 

E8E1ECE6 

1620 

.BYTE "half" 

s 25 

3 1 B 1 

00 




3 1 B2 

EFEEECE 9 

1630 

.BYTE "online 

11 5 30 

3 IBS 

EEE58000 




3 1 Bft 

EFE 6 E 6 EC 

1 640 

* BYTE ** off 1 i ne 3 58 

3iBE 

E9EEE500 




31C2 

E2F2E3F6 

1 650 

. BYTE ” brev 31 

; 46 REC 

31C6 

00 




31C7 

E2F3EEE4 

I860 

« BYTE lf bsrid 11 

;51 SEN 


ppge a 


DEs WINDOW, MSS 


31CB 

00 



3 ICC 

E4P vifciEE4 

1670 

, B Y T E "dsrid H $ 56 D SEND 

31D0 

00 



31D1 

E4F2E5E3 

1 680 

„ BYTE M drec" 5 61 DRECV 

3 IDS 

00 



31D6 

93909080 

1 690 

BID! » BYTE $93, $9®, $9®, $8® 5 300 

31 DP 

91929090 

1700 

BID2 . BYTE $91 , $92, $90, $90 ; 1800 

22 

'•0002 

1 7 1 0 

. LOG PL ^ f f 

«»«■ 

:3iDE 

i 7 20 

ROM . ® * Ord 3 



1010 

K I NCLUDE #08 5 RDRVR 1 8. M65 



10 ? 

SPVE #D8 5 RDRVR 18, MBS 



20 5 
30 5 

l/yt 



40 ; 
50 $ 

.OPT NO LIST 



60 ; 
70 5 
80 ^ 

Define equates 


=0080 

90 INBUF JLEN « $80 

•—> 

=0080 

0100 

OUTBUF LEN = *80 
»•*»* 


=0001 

0110 

DTRON = *01 

•Mj 

=00FE 

0120 

DTROFF * *F£ 



0 1 30 

m 



0140 

m 

•r 



0 1 50 

; System equates 



0160 

M 

» 

— 

=002 1 

0 1 70 

ICDNOZ - $21 

M* 

=0022 

0180 

ICCOMZ ® $88 

<»•* 

=0084 

0 1 90 

I C B P L Z = : $ cl 4 

• • 

=0025 

0200 

ICBPHZ « $£5 


=0028 

02 1 0 

ICBLLZ » $88 

s 

=0029 

0220 

ICBLHZ « $89 

*•* 

=00214 

0230 

ICPX12 = $2P 

IM 

=002B 

0240 

ICPX2Z ® $8B 

= 

=002C 

0250 

ICSPRZ « $2C 

s 

=020A 

0260 

VSERIN * $08®P 

~ 

=02EP 

0270 

DVSTPT » $08 EP 


= 03 1 Pi 

0280 

HPT PBS « $03 IP 



0290 

u 

9 



0300 

m 



0310 

m 

9 



0320 

« 



0330 

5 Close file to 5 Rx x device 



0340 

St 

•J 

3 IDE 


0350 

RCLOSE 

3 IDE 

PDP037 

0360 

LDP CONCUR 

31E1 

D00D 

0370 

BNE CLOSE CON 5 Close concur 

31E3 

PD9737 

0380 

LDP TXIM PTR 

» WM 

31E6 

CD9837 

0390 

CMP TXOUT PTR 

31E9 

F0I0 

0400 

BEQ CLOSE- 1 5 Buffer empty 

3 i EB 

20P932 

041 0 

JSR SENDBLOCK 

31 EE 

D00B 

0480 

BNE CLOSE, 1 5 Always 



0430 

* 

31F0 


0440 

CLOSECON 

31F0 

PD 97 37 

0450 

LDP TX IN PTR 

31F3 

CD9837 

0460 

CMP TXOUT _ PTR s Empty? 

31F6 

D0F8 

0470 

BNE- CLOSECON , NO 

31 FQ 

20FF35 

0480 

JSR 100 FF 


$ fz 


< / 




j 

re 
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0490 

a 

9 



3 1 FB 


0500 

CLOSE- 1 


31FB 

A 9 00 

0510 


LDA 

#$00 

3 1 FD 

8D9D37 

0520 


ST A 

NODE 

3200 

8DA037 

0530 


ST A 

C 0 N C U R ; C o n e u r o f f 

3803 

A001 

0540 


LDY 

#$0 1 5 OK 

3205 

60 

0550 


RTS 




0560 

• 





0570 

« 





0580 

a 





0590 

* 

9 

Open file to i} fix s device 



0600 

tt 

w 

«T 



3806 


0610 

RQPEN 

• 

3806 

AD9D37 

0680 


LDA 

MODE 

3809 

F003 

0630 


BEQ 

OPEN. 1 

380B 

A096 

0640 


LDY 

# $ 9 6 ? A 1 r eady o p e ri 

380D 

60 

0650 


RTS 




0660 

n 

•> 



380E 


0670 

OPEN- 1 


320E 

A 58 A 

0680 


LDA 

I C A X 1 Z ? Get mod e 

38 1 0 

A 8 

0690 


TAY 


3 c! 1 1 

890C 

0700 


AND 

#$ 0 C 

3813 

D003 

0710 


BNE 

OPEN . 8 

3815 

A084 

0780 


LDY 

#$84 ; I n v a 1 i d e o rn rn a n d 

38 1 7 

60 

0730 


RTS 




0740 

u 

•9 



38 1 a 


0750 

OPEN. a 


38 1 8 

98 

0760 


TYA 


3819 

8D9D37 

0770 


ST A 

MODE s Now on 

32 1C 

A900 

0780 


LDA 

#$00 

c> 8 1 E. 

8D9737 

0790 


STA 

TXIN PTR 

700 i 

O C_ d, X 

8D9837 

0800 


ST A 

TXOUT _PTR 

3884 

8D9C37 

0810 


STA 

ST AT 

388 7 

A001 

0820 


LDY 

#$01 § 0 K 

3889 

60 

0830 


RTS 




0840 

» 

9 





0850 

m 

* 





0860 

m 

f 





0870 

n 

j 

Wr i t e 

a char t o ’ Rk : dev i ce 



0880 

at 

H 



c„ c. H 


0890 

RPUTBYTE 

38 8 A 

r~i n 

0900 


T A X 

i} Save cnar 

38 8 B 

AD9D37 

0910 


LDA 

MODE 

•*V o r~ 

cic!c.fcn. 

2908 

0920 


AND 

#$08 

3830 

D003 

0930 


BNE 

PUTBYTE . 8 

3238 

A087 

0940 


LDY 

#$67 5 Read only 

3834 

60 

0950 


RTS 




0960 

a 



-*> £2* 
vi C O 


0970 

PU TBYTE 

* 8 

3835 

AD9E37 

0980 


LDA 

TRNPAR 

3838 

8930 

0990 


AND 

#$30 

38v.i A 

AS 

1 000 


TAY 


***, ^ 
C»c.w>i3 

F005 

1010 


BEQ 

PUTT RAMS ; Trans 

32 3D 

BA 

1020 


T X A 

§ Set char 

~7‘ O C*‘ 

%J t.._ S.J 1 — 

C080 

1030 


CPY 

#$20 

3840 

B086 

1040 


BCS 

P U T 1 T 5 N o t r a r i s 



1050 

w 

i 



3242 


1 060 

PUTT RAN: 

S 
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32 42 

8A 

1070 


XX A 

s Get char 

3243 

C99B 

1 080 


CMP #*9B 

s <E0L> 

3245 

D80E 

1090 


BNE PUTTRANS 

• 2 

3247 

A90D 

1 1 00 


LDA #*0D 

* <CR> 

3249 

2C9E37 

1110 


bit trnpar 

; A P p e n d < L F > ? 

324C 

50 1 A 

1120 


BVC PUT IT 

$ MG 

324E 

206832 

1 1 30 


JSR PUT IT 


3251 

A90A 

1 140 


LDA #*0A 

* <LF> 

3253 

0013 

1 150 


BNE PUT IT 

5 Always 



1 160 

ti 



wf L*m w W 


1 170 

PUTTRANS. £ 


w j 2bb 

C0 1 0 

1 180 


CPY #*10 


“> KT" ‘*7 

3 c. w> / 

F084 

1 1 90 


BEGS HVYTRANS 


T5P E ",Q 

297 F 

1200 


AND #*7F 

s Li ght traris 

3258 

100B 

1210 


BPL PUT IT 

: Always 



1220 

a 



3250 


1230 

HVYTRANS 


3251) 

0920 

1240 


CMP #*£0 

; Heavy trans 

325F 

9004 

1250 


BCC HVYTRANS 

k * 

.. j. 

3261 

0970 

1 260 


CMP #*7D 


3263 

9003 

1270 


BCC PUT IT 


3265 


1280 

HVYTRANS. 1 


3265 

A 00 1 

1290 


LDY #*01 

» DK but no send 

326 7 

60 

1 300 


RTS 



1310 5 
1 3£0 s 


3268 

v.i/ (n* w W 


1330 PUT IT 


3268 

BOA 137 

1340 

ST A 

CHAR 

326B 

A09E37 

1350 

LDA 

TRNPAR 

326E 

2903 

1360 

AND 

#*03 ; P ar it y mas k 

3270 

F01E 

1370 

BEG 

PUT IT. £ 5 No parity 

3272 

0903 

1 380 

CMP 

#*03 

3274 

F00E 

1390 

BEG 

PARITY 1 ; Parity = 1 

27276 

AB 

1400 

TAY 


3277 

203536 

1410 

JSR 

MASKH I B I T 

327A 

202A36 

1420 

JSR 

FI 6 RPAR 

3270 

98 

1430 

TYA 

; 5 C is par i t y 

327 E 

2902 

1440 

AND 

#* 0 £ 

3280 

F00C 

1450 

BEQ 

PARI TYO ; Do odd parity 

3282 

9000 

1460 

BCC 

PUT I T. £ ;CIr par i t y 



1470 5 



3284 


1480 PAR I TV 1 


3284 

ADA 137 

1490 

LDA 

CHAR 

3287 

0980 

1500 

□ RA 

#*80 

3289 

8DA137 

1510 

ST A 

CHAR 

3280 

3002 

1 520 

BMI 

PUT IT. 2 s Always 



1 530 ; 



328E 


1540 PARI TYO 


32 BE 

90F4 

1550 

BCC 

PARITY! 5 Set parity 



1560 ; 



3290 


1570 PUT IT. £ 


3290 

AEA037 

1580 

LDX 

CONCUR 

3293 

0054 

1590 

BNE 

PUTCONCUR 



1 600 5 



3P95 

AC9737 

1610 

LDY 

TX IN PTR 

3298 

ADA 137 

1620 

LDA 

CHAR 

3298 

991137 

1630 

ST A 

OUT BUFFER, Y 

329E 

EE 97 37 

1 640 

1 NC 

T X IN PTR 


D£ ! RDRVR1£. MfoP 


PP GE 11 


P d P 1 

C90D 

1650 

CMP 

tt$0D ; ( C R > ? 

o T 
OilH vi 

F004 

1 660 

BEQ 

SENDBLOCK ; Send block 

32P5 

C07E 

1670 

CP Y 

#0UTBUF LEN-E ? F u 1 i ? 
***** * 

32P7 

0030 

1680 

BNE 

SENDBLOCK. END 



1690 

it 

9 


32P9 


1 700 

SENDBLOCK 

32P9 

209P35 

1710 

JSR 

1 0 0 N ? T u r n I G o n 

32PC 

78 

1720 

GfT T 


32PD 

P900 

1730 

LOP 

#$00 

32PF 

809B37 

1 740 

8 TP 

TX DONE 

7 000 

^ jP 

P510 

1750 

LDP 

POKMSK 

32B4 

2C9E37 

1760 

B 1 T 

T RNPP R ; T est st o a bits 

32B7 

3004 

1770 

BM I 

SENDBLOCK. 00 

3 SB 9 

0918 

1780 

0RP 

#$18 5 0 r i e - s t o p o r t 

“J O O Q 

oc.r?o 

0002 

1790 

BNE 

SENDBLOCK. 01 

32BD 


1 800 

SENDBLOCK . 00 

32BD 

0908 

1810 

QRP 

#$08 s T wo-st op on 

32BF 


1820 

SENDBLOCK. 01 

w/ cl r 

8510 

1 830 

SIP 

POKMSK 

?or i 

OC.L 1 

8D0ED2 

1840 

STP 

I RQEN 

32C4 

58 

1850 

CL 1 




I860 

41 

9 


vJ Cl w w) 


1 870 

SENDBLOCK. 1 

32C5 

P000 

1880 

LDY 

#$00 ? Reset timer 

32C7 

P210 

1 890 

LDX 

#$ 1 0 

32C9 


1900 

SENDBLOCK. 2 

OC.C 1/ 

PD9B37 

1910 

LDP 

TX DONE ; Done? 

*-****»i * 

32CC 

F0F7 

1920 

BEQ 

SENDBLOCK. 1 5 Nope 

o n cr 

O CL w i_ 

PD0ED2 

1930 

LDP 

I RQST 

32 D1 

2908 

1 940 

PND 

#$08 

>i ci 

D0F0 

1 950 

BNE 

SENDBLOCK. 1 

321)5 

88 

1 960 

DEY 


3£D6 

D 0 F 1 

1970 

BNE 

SENDBLOCK. 2 

3208 

CP 

I960 

DEX 


3209 

D0EE 

1990 

BNE 

SENDBLOCK. 2 



2000 

HI 

* 


32 DB 

20FF35 

20 1 0 

JSR 

1 0 Q F F 3 T u r n 1 0 0 f f 

32DE 

P900 

2020 

LDP 

#$00 

32E0 

809737 

2030 

ST P 

TX 1 NPTR 

• # «W « »»«■ <«* t 

*,.,,, I f-,-- , t J 

809837 

£040 

STP 

TX0UT_ PTR 

32E6 

• 

2050 

SENDBLOCK. END 

32E6 

P001 

2060 

LDY 

#$01 s OK 

32 E 8 

60 

£070 

RTS 




2080 

« 

«r 




2090 

u 

* 


32E9 


2100 

PUTCONCU R 

32E9 

58 

2110 

CLI 


vi 22 P 

78 

2120 

Op T 

V*II? Vtw» «*• 

• 

32 EB 

PC9737 

2 1 30 

LDY 

TX IN PTR 

***** 

vide. t. 

C 8 

2140 

INY 


v.i c. h. r 

98 

2 1 50 

TYP 


32F0 

297F 

2 1 60 

PND 

# 0 UTBUF LEN-1 

***** 

32F2 

CD9837 

2170 

CMP 

T X OUT' P T R 5 B u f fen f u 11? 

32F5 

F0F2 

2180 

BEQ 

PUT CONCUR s YES - Wait? 

32 F 7 

809737 

2 1 90 

STP 

T X 1 N _PT R 



2200 

h 

•f 


32FP 

88 

2210 

DEY 


32FB 

POP 137 

£220 

LDP 

CHPR ? Get char back 
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38FE 

991137 

8830 


ST A 0UT_BUi-FER, Y sNr-ite char 



8840 

a 

9 


3301 

ft5 1 0 

8850 


LDA POKMSK 

3303 

2C9E37 

8860 


BIT TRNPAR 5 Test stoo bits 

3306 

3004 

8870 


BMI PUTCONCUR . 1 

3308 

0918 

8880 


ORA #$18 ;0rie— stoo on 

330ft 

0008 

8890 


BNE PUTCONCUR. £ 

330C 


8300 

PUTCONCUR . 1 

330C 

0908 

8310 


0 R ft #$08 ; 1 ” w 0 — s 1 0 □ 0 n 

330E 


8380 

PUTCONCUR - 8 

330E 

8510 

8330 


ST ft POKMSK 

3310 

8D0ED8 

8 <3 4 0 


ST ft IRQEN 

3313 

cr r* 
JO 

8350 


CL I 

3314 

ft 00 1 

8360 


LDY #$01 5 OK 

3316 

60 

8370 


RTS 



8380 

tt 

f 




8390 

m 




8400 

u 

*) 




84 1 0 

a 

? 

Get byte f r o m b u f f e r 



8 *+ C! 0 

w 


3317 


8430 

R0ETBVTE 

33 1 7 

AD9D37 

8440 


LDA MODE 

33 1 ft 

8904 

8450 


ft N D # $ 0 4 

33 1C 

0003 

8460 


BNE BE TBYTE . 1 

33 1 E 

ft 08 3 

8470 


LDY #$83 ; Write only 

338® 

60 

8480 


RTS 



8490 

H 

v 


-j- t o i 
UPCl X 


8500 

0ETBYTET 1 

SjxZCL 1 

AEft037 

8510 


LDX CONCUR 

3384 

D003 

8580 


BNE BE TBYTE. 8 

3386 

ft09ft 

85*30 


LDY #$9ft ; Con not active 

"X: 

wuu w 

60 

8540 


RTS 



8550 

* 

* 


3389 


8560 

GETBYTET 8 

■7 700 

‘•H«? Wf {»««• 

58 

8570 


CL I 

3 3 8 A 

78 

8580 


CJiC" T 

O **•»« »r«. 

“S'- C* ID 
vJWCD 

ftC9ft37 

8590 


LDY RXOUT.PT R 

^ rr d cr 

v.d O iL. Cl 

CC9937 

8600 


CRY RX IN PTR 

*•*! '"k 

1 

F0F6 

8610 


BEQ GETBYTE. 2 5 No chars in 



8680 

it 

•I 


^ < 
V**r \mt %<w Vnr 

B99136 

8630 


L D ft I N _ B UPPER, Y ; 0e t c h a r 

3*3 J >6 

8Dft 137 

8640 


ST ft CHftR 

3339 

C 8 

8650 


I NY 

333ft 

98 

8660 


TYft 

333B 

897F 

8670 


ftiMD #INBUF LEN— 1 

HIM 

3330 

8D9A37 

8680 


ST ft RXOUT PTR 

IWI 



86/90 

a 

9 


3340 

58 

8700 


CL I 

*3*34 i 

AD9E37 

87 1 0 


LDft TRNPAR 

3344 

4ft 

8780 


LSR ft 5 Do par i t y 

3345 

4ft 

8730 


LSR ft 

3346 

8903 

8740 


ftND #$03 

3348 

F081 

8750 


BEQ 8 E T B Y T E . 8 $ N 0 pari t y 

334ft 

C903 

w CL |7| 
C. / O *£* 


CMP #$03 

33 4 C 

F '0 1 ft 

8770 


B E Q 0 E T B Y T E • 7 ; Cle a r p a r i t y 

334E 

ft 8 

8780 


TftY 

334F 

ftDft 137 

8790 


LDft CHftR 

cr 

w O vJ Lm 

80£ft36 

8800 


JSR FIGRPftR 
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3355 98 

£8 1 0 

TYft 

3356 £30£ 

2820 

AND #*®e 

3358 F00C 

£830 

BEQ GETBYTE . 6 5 Do odd parity 

335ft 900C 

2840 

BCC GETBYTE. 7 ;Clr parity 

-~*i {*** 

bJ bJ V.J W 

£850 GETBYTE. 5 

335C AD9C37 

£880 

LDft STftT ; Parity error 

335F 0930 

£870 

ORA #*20 

3361 8D9C37 

2880 

ST A STftT 

3364 D00£ 

£890 

BNE GETBYTE. 7 ;ftlways 


£900 

m 

7 

3366 

£910 i 

BETBYTE . 6 

3366 90F4 

£9£0 

BCC G E T B Y T E» 5 ? Se t p a r v i t y 


£930 

u 

3368 

£940 

GETBYTE. 7 

3368 £03536 

£950 

JSR MASK Mi BIT 

336B 

£960 

GETBYTE . 8 

336B AD9E37 

£970 

LDft TRNPftR 

336E' £930 

£980 

AND 4*30 

3370 C9£0 

£990 

CMP #*£® 

337£ 9006 

3000 

BCC SETT RONS 5 Trans late it 

3374 ftDft!37 

3010 

LDft CHAR : No trans return 

3377 ft001 

30£0 

LDY 4*01 

3379 60 

3030 

RTS 


3040 

ft 

7 


3050 

m 

¥ 

337ft 

3060 

GETTRftNS 

337ft A 8 

3070 

TOY 

337B £03536 

3080 

JSR MASKHIBIT 

337E C90D 

3090 

CMP 4*0D ; <CR> 

3380 D004 

3100 

BNE GETTRftNS. 1 

338£ ft99B 

3110 

LDft #*3B 5 <E0L> 

3384 D00F 

3 1 £0 

BNE GETTRftNS. 3 ;ftlways 


3130 

U 

1 

3366 

3140 

GETTRftNS. 1 

3386 C000 

3 1 50 

CPY #*00 

3388 F00B 

3160 

BEQ GETTRftNS. 3 ;Light trans 

338 ft C9£0 

3170 

CMP #*£0 

338C 9004 

3180 

BCC GETTRftNS. £ 5 Wont trans 

338E C97D 

3190 

CMP 4*7D 5 <BS> 

3390 9003 

3£00 

BCC GETTRftNS. 3 5 OK char 


3£ 1 0 

« 

339£ 

3££0 

GETTRftNS. £ 

339H AD9F37 

3£30 

LDft HVYTR 5 No trans cnar 


3£40 

M 

1 

3395 

3 £50 

GETTRftNS. 3 

3395 A00 1 

3£60 

LDY 4*01 

3397 60 

3£70 

RTS 


3£80 

W 

* 


3290 

u 

7 


3300 

* 


3310 

; Get ©tat u © 0 f* 8 5 0 


33£0 

m 

•t 

3398 

3330 

RSTATUS 

3398 AD9C37 

3340 

LDft ST AT 

339B 8DEft0£ 

3350 

ST A DVSTftT 5 Set error 

339E ft900 

3360 

LDft 4*00 

3300 8D9C37 

3370 

Sift STftT 

33A3 AEA037 

3380 

LDX CONCUR 
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33A 6 

D045 

3390 

B N E S 7 ft T l J S C 0 N s 0 o n c u r 0 N 



3400 

ii 

*> 



3410 

5 No i n t e r r u p t s c a n h a p p e n whi 1 e 



3420 

5 the foil ow i n g sect i on o f cod e 



3430 

< inn u n n i n g , i f o n e d o e s t h e n 



3440 

? rerun the routine! ! ! 



3450 

m 

? 

33A8 


3460 

STATUS . 1 

33A8 

A5 1 4 

3470 

L D A R T C L OK ■+• 2 ; G e t c 1 o c k 

33aa 

48 

3480 

PHA s Save i t 

33 AB 

AD00D3 

3490 

LDA PORTA 5 Clear chip 

33PiE 

AD01D3 

3500 

LDA PORTS 

33B1 

AD03D3 

3510 

LDA PBCTL 

3 3 B 4 

29FC 

3520 

AND #$FC 5 Mask hi/lo 

33 B 6 

8D03D3 

3530 

ST A PBCTL 

33B9 

AD02D3 

3540 

LDA PACTL 

33BC 

29FC 

3550 

ft N D # $ F C ; M a s k h i / 1 o 

33BE 

8D02D3 

3560 

STA PACTL 

33 C 1 


3570 

AND #$F7 ; Mot or on 

33C3 

8D02D3 

3580 

STA PACTL 

33C6 

A000 

3590 

LDY #$00 

33C8 


3600 

STATUS. 2 

33C8 

C 8 

36 1 0 

I NY 5 Wait a bit 

33C9 

D0FD 

3620 

BNE STATUS . 2 ' 



3630 

u 

1 

33CB 

A930 

3640 

LDA #*30 

33CD 

2C03D3 

3650 

BIT PBCTL ; Test RI 

33D0 

1002 

3660 

BPL STATUS. 3 5 Nope 

33D2 

09C0 

3670 

ORA #*C0 

33D4 


3680 

STATUS. 3 

33D4 

EC02D3 

3690 

BIT PACTL ; Test DCD 

3 3D 7 

1 002 

3700 

BPL STATUS. 4 ; Nope 

33D9 

090C 

37 1 0 

ORA #*0C 

33DB 


3720 

STATUS. 4 

33 DB 

8DEB02 

3730 

STA DVSTAT +1 

33DE 

AD02D3 

3740 

LDA PACTL 

33E1 

0908 

3750 

ORA #$0S ; Mot or off 

“y ^2 ET 

wl vU EL wD 

8D02D3 

3760 

STA PACTL 



3770 

* 

33E6 

68 

3780 

P L A $ 8 e t cl 0 e k h a c k 

33E7 

C514 

3790 

CMP RTCLOK+2 sis it same? 

rz-sprQ 

D0BD 

3800 

BNE S T A T US. 1 5 8 0 a g a i n 



38 1 0 

m 

9 

33EB 

F00F 

3820 

B E Q S 7 A T US. END ; Always 



3830 

M 

9 



3840 

At 

■J 

33ED 


3850 

STATUSCON 

33ED 

A900 

3860 

LDA #$00 

33EF 

8DEC02 

3870 

STA DVSTAT-f-2 

***\ ,»**. 
viwir c. 

38 

3880 

SEC 


AD9937 

3890 

LDA R X I N_PT R 5 N u rn be r 1 n p u t 

33F6 

ED9A37 

3900 

SBC R X 0 U T _ P 7 R 

33F9 

8DEB02 

3910 

STA DVSTATh -1 



3920 

» 

33FC 


3930 

STATUS. END 

33FC 

38 

3940 

SEC 

33FD 

AD9837 

3950 

L D A T X 0 U T _ P T R a N u rn b e r 0 u t put 

3400 

ED9737 

3960 

SBC TXIN PTR 


MKM 
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3403 

8DED03 

3970 


ST £ 

DVSTAT+3 

3406 

£00 1 

3980 


LOY 

#*01 

* OK 

3408 

60 

3990 


RTS 





4000 

M 

9 






4010 

It 

n 






4030 

a 

9 






4 0 3 0 

m 

9 

Sect i< 

:» r j t o h a n a 1 e X X 0 li s 



4040 

u 

•f 




3409 


4050 

RSPEC I AL 


3409 

£093 

4060 


LOY 

##93 

; F u r i c ri o t i rn p i rn t 

340B 

£533 

4070 


LD£ 

ICCOMZ 


348D 

C930 

4080 


CMP 

##30 

s; C h e c k r a n g e 

340F 

B01 4 

4090 


RPC 

JL.I W 

SPECIAL. 

1 

34 1 1 

£084 

4100 


LOY 

##64 

; I nva 1 i d e o rn rn a n d 

3413 

390F 

4110 


AND 

##0F 


34 1 5 

C909 

4130 


CMP 

##09 

s Less than 9 

3417 

B00C 

4130 


BCS 

SPECIAL. 

1 5 Bad command 

34 1 9 

£8 

4140 


T£Y 



34 1A 

4£ 

4150 


LSR 

£ 

;Fxx for table 

34 IB 

B008 

4 1 60 


BCS 

SPECIAL. 

1 ; B a d c o rn rn a n d 

34 1 D 

B97E36 

4170 


LDP 

VEC SPECIAL* 1 , Y 

343*0 

48 

4180 


PH£ 



343 1 

B97D36 

4190 


LD£ 

VEC SPECIAL , Y 

3434 

48 

4300 


PH£ 



3435 


4310 

SPEC I £L. 

1 


3435 

60 

4330 


RTS 





4330 

m 

? 






4340 

a 

5 






4350 

s 

1 






4360 

u 

5 

X 1 0 4 0 — C o n c u r r e r 1 1 rn o d e o n 



4370 

« 

f 




3436 


4360 

RX 1040 



3436 

£09037 

4390 


LD£ 

MODE 


3439 

0003 

4300 


BNE 

XI 040. 1 


343B 

£085 

4310 


LOY 

##85 

$ Dev x c e ri o t o o e ri 

3430 

60 

4330 


RTS 





4330 

* 




343E 


4340 

X I 040* 1 



3436 

£C£037 

4350 


LOY 

CONCUR 


3431 

F003 

4360 


BEO 

X I 040. 3 


M**, / M«4 UH 

£099 

4370 


LOY 

##99 

$ C o n o n a 1 r e a d y 

3435 

60 

4380 


RTS 





4390 

B» 

9 




3436 


4400 

X X 040, 3 



3436 

4£ 

44 1 0 


LSR 

£ 


3437 

B003 

4430 


BCS 

X I 040. 4 


3439 

£097 

4430 


LOY 

##97 

5 C a n t d o c o r j e r t 

343B 

60 

4440 


RTS 





4450 

** 

9 




343C 


4460 

X 1040. 4 



343C 

£000 

4470 


LOY 

##00 


343E 

8C9937 

4480 


STY 

RXIN.PTR 


3441 

8C9A37 

4490 


STY 

R X OUT PTR 

%jf»444 

8C9C37 

4500 


STY 

STAT 

; Clear st at 

3447 

C8 

45 1 0 


I NY 



3448 

8C£037 

4530 


STY 

CONCUR 

s N o rrze r o i s G N 

344B 

309 £35 

4530 


J SR 

1 DON 


344E 

D05B 

4540 


BNE 

X I ORETOK 

$ £ 1 ways 
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4550 

M 

? 




4560 

U 

9 




4570 

a 

H 




4580 

^ Force 

short block 



4590 

at 

? 


3450 


4600 

RXI03E 


3450 

AD9D37 

4610 

LDft 

NODE 

3453 

D003 

46£0 

BNE 

XI 032. 1 

3455 

ft085 

4630 

LDY 

#*85 ; Chan not open 

3457 

60 

4640 

RTS 




4650 

» 


3458 


4660 

X IQ3£. 1 


3458 

£908 

4670 

AND 

#*08 

345ft 

D003 

4680 

BNE 

X 1 038 « 8 

345C 

ft 08 7 

4690 

LDY 

#*87 5 React only 

345E 

60 

4700 

RTS 




4710 

B* 


345F 


4780 

X X 038 « 8 


345F 

AD9737 

4730 

LDft 

TX IN PTR 
•**«» 

3468 

CD9837 

4740 

CMP 

TX OUT. PTR 

3465 

F044 

4750 

BEQ 

X 1 0 R E T 0 K 5 No chars 

3467 

£014938 

4760 

JSR 

SENDBLOCK ; Send block 

346ft 

D03F 

4770 

BNE 

XIORETOK ? Always 



4780 

* 




4790 

u 

9 




4800 

u 

9 




4810 

; Set baud, word size, etc 



4880 

m 

1 


346C 


4830 

RX 1036 


34 6 C 

ft 5 £ ft 

4840 

LDft 

ICAX1Z 5 Get buad nurnt 

346E 

890F 

4850 

ftND 

#S0F 

3470 

8Dft£37 

4860 

ST ft 

ORBAUD 

3473 

AD9E37 

4870 

LDft 

TRNPftR i Mask in stop*: 

3476 

897 F 

4880 

ftND 

#*7F 

3478 

8D9E37 

4890 

ST ft 

TRNPftR 

347B 

ft58ft 

4900 

LDft 

ICftXlZ 

347D 

£98® 

4910 

ftND 

#$60 

347F 

0D9E37 

49£0 

ORft 

TRNPftR 

3488 

8D9E37 

4930 

Sift 

TRNPftR 

3485 

D084 

4940 

BNE 

X I □ R E T 0 K ? ft 1 w a y s 



4950 

* 

4 




4960 

u 

5 







487 

487 AD00D 
348ft £4£A 
348 C 1010 
348E 5004 
3490 0901 
3492 D00£ 


3494 

3494 £9FE 
3496 

3496 8D00D3 




493 1 8 


4970 

4380 

4390 

5000 

5010 

5080 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5180 


31 

I 


; Control of DTR, RTS, XMT 

ft 

i 

RX 1034 

LDft PORT ft s Get port 
BIT ICftXlZ 5 Set flags 
BPL XIORETOK ; NO DTR 
BVC X 1 034. 1 ; DTR off 

ORft #DTR0N 
BNE X 1 034. 9 ;Always 

n 

X 1 034. 1 

ftND #DTR0FF 
XI 034. 9 

ST ft PORTA 
CLC 
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349ft 9®0F 


349C 
3490 
349E 
349F 
34fta 
34 A3 
34ft6 


34fta 


A52A 

0 ft 

0ESE37 

6 ft 

8D9E37 

A58B 

8D9F37 


34ftB 

34ftB ftD9D37 

34ftE asaft 

34B0 R 001 
34BE 60 


5 1 30 
5140 
5150 
5160 
5170 
5180 
5190 
5600 
5810 
5880 


BCC X XGRETOK 5 Always 


§ Trans 1 at i on, LF & Parity 


5830 

5840 

5850 

5860 

5870 

5680 

5890 

5300 

5310 

5380 

5330 

5340 

5350 

5360 

5370 


RX 1 038 

LDft ICftXlZ 5 Get data 
ftSL ft 

ftSL TRNPftR § Get bit 7 

P ; . . and make one 

Sift TRNPftR 5 Save it 

LDft icftxaz 
ST ft HVYTR 


XI ORE TDK 

LDft NODE 
Sift ICftXlZ 
LDY #$01 


RTS 


5 OK 


$ Initialize 850 ? Rs driver 


34B3 


5380 

R I N I T 



34B3 

800135 

5390 

JSR 

DOS I NIT 

34B6 


5400 

I NIT. 0 



34 B 6 

ft800 

5410 

LDX 

#$00 

5 Look for space 

34B8 


5480 

INI T . 1 



34B8 

BD1R03 

5430 

LDft 

HftTftBS, 

X 

34BB 

F00C 

5440 

BEQ 

INIT. a 


34 BD 

pner-% 

5450 

CMP 

R 

? - - or R 2 dev i ce 

34 BF 

F008 

5460 

BEQ 

iNir. a 


34C1 

£8 

5470 

1 NX 



34C8 

E 8 

5480 

I NX 



3403 

E 8 

5490 

I NX 



34C4 

E080 

5500 

CPX 

#$80 


3406 

90F0 

5510 

BOO 

INIT . 1 


3408 

60 

5580 

RTS 


? None found 



5530 

« 



3409 


5540 

INIT . 8 



3409 

ft958 

5550 

LDft 

#* R 

5 Inst a 1 I ’ R: 

34CB 

9D1A03 

5560 

ST ft 

HftTftBS, 

X 

34CE 

ft96E 

5570 

LDft 

# < VEC 

1 ftBLE 

34D0 

9D1B03 

5580 

ST ft 

HftTftBS* X 

34D3 

ft936 

5590 

LDft 

# > VEC_ 

TABLE 

34D5 

9D1C03 

5600 

ST ft 

HftTftBS* 

8 , X 



5610 

n 

5 



34D8 

RD08D3 

5680 

LDft 

PftCTL. 


34DB 

ftft 

5630 

TftX 


5 Save PftCTL 

34DC 

89FB 

5640 

ftND 

#$FB 

5 S e t to i.) D R 

34DE 

8D08D3 

5650 

STft 

PftCTL 


34E 1 

ftD00D3 

5660 

LDft 

PORT ft 

5 Set old DDR 

34E4 

0901 

5670 

ORft 

#DTRON 

; Bi t 0 to OUT 

34E6 

8D00D3 

5680 

STft 

PORT ft 


34 E 9 

8E08D3 

5690 

SIX 

PftCTL 

5 PftCTL to DAT ft 

34EC 

ftD00D3 

5700 

LDft 

PGRTft 
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34EF 29F E 

5710 

AND #DTRQFF 

34 F 1 6D00D3 

5720 

STA PORTA 


5730 i 

4 

? 

34F4 A900 

5740 

LDA 

34F6 SD9D37 

5750 

STA NODE 

34F9 8DA037 

5760 

STA CONCUR 

34FC 20AS33 

5770 

JSR STATUS. 1 

34FF 18 

5780 

CLC 

3500 60 

5790 

RTS 


5800 

ft 

9 


5810 

m 

9 


5820 

» 


5830 

- Indirect jump tor DOS imt 


5840 

m 

7 

3501 

5850 

DOS I N I T 

3501 6C8F36 

5860 

JMP < DOS I N I _QLD > 


5870 

m 

9 


5880 

» 

9 


5890 

* 

9 

3504 

5900 

RINIT. ST 

3504 A50C 

5910 

LDA DOSINI 

3506 8D8F36 

5920 

STA DOS I N I _ OLD 

3509 A50D 

5930 

LDA DOSINI +1 

350B 8D9036 

5940 

STA DOS INI __OLD+- 1 

350E A9B3 

5950 

LDA # < R I N I T 

3510 850C 

5960 

STA DOSINI 

3512 A934 

5970 

LDA # > R I N I V 

3514 850D 

5980 

STA DOS IN 1+1 

3516 4CB634 

5990 

JMP IN IT. 0 


6000 

» 

7 


6010 

* 

7 


6020 

« 

9 


6030 

; Capture BREAK key 


6040 

ft 

7 

3519 

6050 

I RQVECTOR 

3519 2C0ED2 

6060 

bit irqst 

35 1C 1003 

6070 

BPL. I RQVECTOR. 1 * Test break 

35 IE 6C8D36 

6080 

JMP <IRQ_OLD) 


6090 

• 

•> 

vi Ju i. 

6100 

I RQVECTOR. 1 

3521 48 

6110 

pH A 5 Cancel BRK key 

3522 A97F 

6 1 20 

LDA #$7F 

3524 8D0ED2 

6130 

STA I RUEN 

3527 AS 10 

6140 

LDA POKMSK 

3529 8D0ED2 

6150 

STA I RQEN 

352C 68 

6160 

PL A 

352D 40 

6170 

RTI 


6180 

•I 

¥ 


6190 

• 

¥ 


6200 

M 

¥ 


6210 

; Input interrupt routine 


6220 

m 

7 


352E 


35 2 E 

98 

352F 

48 

3530 

AC9937 

3533 

AD0DD2 

3536 

999136 


6230 INPUT 

6240 f Y ft 

6250 PHA 

6260 LDY RXIN...PTR 

6270 LDA SERIN ; Get IN char 

62Q0 ST A INJBUFFER, Y 
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3539 AD0FDE 
353C BO ® ADE 
353F 49FF 
3541 E9C0 
3543 0D9C37 
3546 8D9C37 
3543 CB 
354A 96 
354B E97F 
354D 609937 
3550 CD9A37 
3553 0041 

3555 AC9A37 

3558 C 8 

3559 98 
355A £97F 
355C 8D9A37 
355F AD9C37 
356E 0910 
3564 8D9C37 
3567 D0ED 


6E30 


LDA 

SKSTAT 

6300 


ST A 

SKREST * 

6310 


EOR 

#$F p 

63E0 


AND 

#$C0 5 Check errors 

6330 


ORA 

STAT 

6340 


ST A 

ST AT 

6350 


I NY 

§ Next posit ion 

6360 


TV A 


6370 


AND 

# 1 NBUF_LEN~ i 

6380 


ST A 

RXIN, PTR 

6390 


CMP 

RXOUT._PTR ; Full? 

6400 


BNE 

I RQRE { URN 5 Not f u 1 1 

6^4 1 0 

» 



64E0 


LDY 

R X 0 L i T _ P T R 5 8 e t o u t 

6430 


INY 


6440 


TYA 


6450 


AND 

#INBUF_LEN -1 

6460 


S TA 

R X 0 U T _ P T R $ I) u rn p last 

6470 


LDA 

S T AT ; Wrap e n r o r 

6480 


ORA 

#$10 

6490 


ST A 

STAT 

6500 


BNE 

I RQ RETURN $ A 1 way s 

6510 

m 

9 



65E0 

K 

9 



6530 

* 

9 



6540 

« 

9 

Cutout 

i r« t e r r u p t r o u tine 


6550 § 


3569 


6560 OUTPUT 


3569 

98 

6570 

TYA 


356A 

48 

6580 

PH A 


356B 

AC9837 

6590 

LDY 

T X OUT _ PTR 

356E 

CC9737 

6600 

CPY 

TXIN_PTR 

3571 

D00F 

66 1 0 

BNE 

OUTPUT. 1 

3573 

A510 

66£0 

LDA 

P 0 K Me S K ; C 1 ear i n t e v n n u p t 

3575 

E9E7 

6630 

A N D 

# $ E 7 

3577 

8510 

6640 

ST A 

POKMSK 

3579 

8D0EDE 

6650 

ST A 

I RQEN 

357C 

EE9B37 

6660 

INC 

T X _D0NE 5 A 11 a one 

35 7F 

18 

6670 

CLC 


3580 

9014 

6680 

BCC 

1 RQRETURN § A 1 ways 



6690 ; 



358E 


6700 OUTPUT . 1 


358E 

B9 1 1 37 

6710 

LDA 

OUT_ BUFFER, Y 

3585 

8D0DDE 

67£0 

ST A 

SEROUT 

3588 

C 8 

6730 

INY 


3589 

98 

6740 

TYA 


358A 

E97F 

6750 

AND 

#0UTBUF _LEN — 1 

358C 

8D9837 

6760 

ST A 

TX OUT PTR 



6770 § 



358F 


6780 OUTPUT. '£ 


358F 

AD0EDE' 

6790 

L2!) A 

I RQST 

KT Q O 
u J 3C 

£908 

6800 

AND 

#$08 

3594 

F0F9 

6810 

BEQ 

OUTPUT. £ 5 Wait for start 



68£0 5 



3596 


6830 I RQRETURN 

3596 

68 

6840 

PLA 


3597 

AS 

6830 

TAY 


3598 

68 

6860 

PLA 



PhtSE £» 
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3599 - 

40 

6870 

RTI 


359 ft 


6880 $ 

6890 ? 

6900 5 

89 10 5 Ro ut i ne to t urn 1 0 on 

6980 § 

6930 I 00 N 

359ft 

78 

6940 

BE I 


359B 

ft 97 3 

6950 

LDft 

#$73 $ ft sync 

3590 

8D3808 

6960 

BTft 

SSKC f L 

35ft0 

8D0FD8 

6970 

ST ft 

SKCTL 

35ft3 

ft988 

6980 

LDft 

#$88 

35ft5 

8D08D8 

6990 

ST ft 

ftUDCTL 

35 ft 8 

ftDft£37 

7000 

LDft 

DRBftUD 

35ftB 

ftft 

7010 

TftX 


35ftC 

0 ft 

7080 

ftSL 

ft $ Times 8 

35ftD 

ftB 

7030 

TftV 


35ftE 

BD3E36 

7040 

LDft 

BftUDOUT TBL, X 

35B 1 

8D08D8 

7050 

ST ft 

AUDF£ sSet baud out 

35B4 

B94E36 

7060 

LDft 

BAUDIN_TBL, Y 

35B7 

8D04D8 

7070 

ST ft 

AUDF3 ; Set baud in lo 

35Bft 

B94F38 

7080 

LDft 

BAUD I W TBL+1 , Y 

35 BD 

800808 

7090 
7 1 00 

ST ft 

« 

*5 

AUDF4 5 set baud in hi 

35C0 

35C8 

ft£05 

7110 

7180 

LDX 
I DON, 1 

#$05 

35C8 

BD0P0E 

7 1 30 

LDft 

VSERIN, X 5 Save old 

35C5 

90S 1 37 

7140 

ST ft 

OLD__ VECTOR, X 

35C8 

BD8738 

7 1 50 

LDft 

VEC 10, X : . . and replace 

♦4M1 * * 

35CB 

90 0ft 08 

7 1 60 

S T ft 

VSER1N, X 

35CE 

Cft 

7 1 70 

DEX 


35CF 

10 F 1 

7180 

7190 

BPL 

w 

9 

I 00 N . 1 

351) i 

ftD 1 608 

7800 

LDft 

VIM IRQ 5 Set BREAK vec 

35D4 

808036 

7810 

ST ft 

I RQ__0LD 

3 51) 7 

ftD 1708 

7880 

LDft 

VIMIRQ+1 

35Dft 

8D8E36 

7830 

ST ft 

IRQ OLD+1 

MHI 

35 DO 

ft9 1 9 

7840 

LDft 

# < I RQVECTOR 

35DF 

80 1 608 

7850 

ST ft 

V I M X RQ 

35E8 

ft 9 35 

7 860 

LDft 

# > I RQVECTOR 

35E4 

8D1708 

7870 

7880 

ST ft 

n 

f 

VINIRQ*1 

35E7 

PDft037 

7890 

LDft 

CONCUR 

35Eft 

F009 

7300 

BEG 

I DON. £ 

35EC 

8510 

7310 

LDft 

PQKMSK 

35 EE 

0980 

7380 

GRft 

#$80 ; IN on 

35F0 

8D0ED8 

7330 

STft 

I RQEN 

35F3 

35F5 

8510 

7340 

7350 

BTft 
IOGN. 8 

POKMSK 

35 F 5 

ftD08D3 

7360 

LDft 

PftCTL 

35F8 

S9F7 

7370 

ft NO 

# $ F 7 ; i Y ! o t o r o rt 

35Fft 

8D08D3 

7380 

STft 

PftCTL 

35FD 

58 

7390 

CL 1 


35 FE 

60 

7400 

7410 

7480 

7430 

7440 

RTS 

u 

i 

V 

* 

m 

9 

• Routine to turn ID off* 


I 
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35FF 
35FF 78 
3600 0510 
3608 89CF 
3804 8510 
3606 8D0ED, 




3609 0D8D36 
360C 8D160S 
360F 0D8E36 
36 1 £ SD1708 


•wi 


W 


615 
6 1 7 


A205 


362A 

362A 

3sac 

362C 

362D 

362F 

3630 


’•630 




uDOC 

3633 

3634 


A200 

4 A 

9001 

E8 

D0FA 
BA 
4 A 
60 


*3 to Li 5 


3635 

ADA 1 

3638 

297F 

363A 

8 DA 1 

36 3D 

60 


w 




7450 

7460 

7470 

7480 

7490 

7500 

7510 

75c! 0 

7530 

7540 

7550 

7560 

7570 

7560 

7590 


m 

* 


IOOFF 

SEI 


LDO POKMSK 
AND #$>CF' 
STO POKMSK 
Sift I RQEN 


5 Restore old IRQ 
; Interrupts off 


SI 

•9 


LDO I 

STO VIMIRQ 
LDO IRQ_OLD+i 
STO VIMIRQ+l 


5 Restore IRQ 


U 

9 


LDX #$05 
IOOFF. 1 


5 Rest ore vect or s 


36 1 7 

BD9137 

7600 

LDA 

OLD V 

36 1 A 

9D0A02 

7610 

ST A 

VSERI 

36 1 D 

CA 

7620 

DEX 


36 IE 

10F7 

7630 

BPL 

IOOFF 



7640 

<1 


3620 

AD02D3 

7650 

LDA 

PACTL 

3623 

0908 

7 660 

ORA 

4*1^8 

3625 

8D02D3 

7670 

STA 

PftCTL 

3628 

58 

7680 

CL I 


3629 

60 

7690 

RTS 




7700 

11 

* 




7710 

* 

«i 




7720 

a 

* 




7730 

? Figure 

pari- 



7740 

41 



5 M o t o r o f f 


u f-s 


363E 


7750 

7760 

7770 

7780 

7790 

7800 

7810 

7820 

7830 

7840 

7850 

7860 

7870 

7680 

7890 

7900 

7910 

7920 

7930 

7940 

7950 

7960 

7970 

7980 

7990 

8000 

8010 

8020 


C set on 


FIGRPAR 

LDX #$00 
FIGRPAR. 1 

LSR O ; I S IT SET? 

BCC FIGRPftR. £ 

I,Nix 5 UP COUNTER 

FIGRPftR. £ 

BNE FIGRPftR. 1 5 Done ( » ft= 0 ) o 

TXft 

LSR ft »IS IT ODD? 

RTS 


9 

« 

9 

5 Mask off hign bit 

<> 

9 

MftSKHIBIT 

LDO CHOR 
OND #$7F 
STO CHOR 
RTS 

* 

* 


5 

m 

? 

; Baud rate output table 

tl 

9 

BOUDOUT TBL 


# 


/ 


PAG E 


.•♦s / h . 

• n' 


363E 

69 

363F 

69 

2)640 

63 

3641 

63 

364E 

63 

3643 

69 

3644 

69 

3645 

D4 

3646 

69 

3647 

34 

3648 

1ft 

3649 

1 1 

364ft 

0C 

364B 

®C 

364C 

0C 

364D 

0C 


3S4E 

364E 

ft00B 

3650 

mm 

365E 

ft00B 

3654 

mm 

3656 

mm 

3658 

mm 

365ft 

mm 

365C 

E316 

365E 

A00B 

3660 

CC®5 

3668 

EE08 

3664 

Eft® 1 

3666 

6D01 

3668 

6D01 

366ft 

6D01 

3660 

6D01 


vi 


66E 


366E 053d 
3670 DD31 
367a 1633 
3674 6938 
3676 9733 


3678 0834 
367ft 4CB334 


v^<> 


67D 


8030 


.BYTE 105 

5 0 » 3®0 baud 

8040 


.BYTE 105 

; 1 « 300 baud 

8050 


.BYTE 105 

s a = 3®0 baud 

80S0 


.BYTE 105 

5 3 « 300 baud 

8070 


.BYTE 105 

{? 4 a* 380 baud 

8080 


.BYTE 105 

3 5 a* 308 baud 

8090 


.BYTE 105 

36 as 30 ® baud 

8100 


.BYTE 212 

3 7 as i 58 baud 

8110 


.BYTE 105 

38 a# 300 baud 

81 £0 


. BYTE 52 

39 as 608 baud 

8130 


. BYTE £6 

3 10 as 16 : 0 ® baud 

8140 


. BYTE 1 7 

3 11 as 1800 baud 

8150 


.BYTE 12 

3 12 as £408 baud 

8160 


.BYTE 12 

;13 = £400 baud 

8170 


. BYT E 12 

; 14 = 2400 baud 

8180 
8190 
8200 
82 1 0 

w 

9 

a 

9 

a 

9 

.BYTE 12 

5 15 = 2400 baud 

8220 

8230 

a 

9 

a 

Baud rate input table 

8240 

BAUD IN TBL 


8250 


. WORD £976 

3 0 as 3®0 baud 

82160 


. WORD £976 

3 1 as 300 baud 

82701 


. WORD £976 

; £ as 30® baud 

82:80 


. WORD £976 

33 as 300 baud 

8290 


.WORD £976 

3 4 as 30® baud 

8300 


. WORD 2976 

35 as 300 baud 

8310 


. WORD £976 

36 as 300 baud 

8320 


. WORD 5859 

37 as 150 baud 

8330 


. WORD £976 

38 == 300 baud 

6340 


.WORD 1464 

3 9 as 608 baud 

8350 


.WORD 738 

3 10 as 1 £00 baud 

8360 


. WORD 490 

; 11 as 1800 baud 

8370 


. WORD 365 

5 i£ as £480 baud 

8380 


. WORD 365 

3 .I .3 - £480 baud 

8390 


. WORD 365 

5 14 - £480 baud 

8400 


. WORD 365 

5 15 as £40® baud 


8410 ; 

8480 ; 

8430 ? 

8440 5 

B450 5 HftTftBS table of vectors 

8460 5 

8470 VEGETABLE 

8480 .WORD ROPEN-1 


8490 

8500 

8510 

85E® 

8530 

8540 


.WORD RCLOSE— 1 
. WORD RGETBYtE— 1 
. WORD RPUTBYTE-1 
.WORD RSTftTUS— 1 
. WORD RBPECIftL—1 
JMP RINIT 


8550 

8560 

8570 

8580 

8590 

8600 


a 

9 

a 

9 

; Special XIO vectors 

B 

VEC SPECIAL 


PAGE £3 


Dc! 5 RD R V R 1 £ » M65 


3670 

4F34 

8610 

.WORD RX 1032—1 

36 7F 

8634 

8S£0 

.WORD RX 1034-1 

368 1 

6B34 

8630 

.WORD RX 1036-1 

3683 

9B34 

8640 

.WORD RX 1038-1 

3685 

£534 

8650 

.WORD RX 1040-1 



8660 

« 

9 



8670 

■ 

9 



8680 

IS 

1 



8690 

$ 10 IRQ vectors 



8700 

■ 

3687 


8710 

VEC„IO 

3687 

£E35 

87£0 

.WORD INPUT ; VSERIN 

3683 

6935 

8730 

.WORD OUTPUT ; VSEROR 

368B 

6935 

8740 

.WORD OUTPUT $ VSEROC 



8750 

m 

9 



8760 

« 

? 



8770 

A 

9 



8780 

; Variables 



8790 

m 

9 

368D 


8800 

IRQ„OLD *- *+a 

368F 


8810 

DOS INI OLD *= *+£ 

• •MM- 

363 1 


8860 

IN_BUFFER #- *+INBUFJ_EN 

37 1 1 


8830 

OUT_ BUFFER *= 4+OUTBUF LEM 

3791 


8840 

0l_D VECTOR *= *4-6 

3737 


8850 

TXIN PTR *= *4-1 

3798 


8860 

TXOUT_PTR *= *4-1 

3739 


8870 

RX I N_PTR *= *4-1 

379A 


8880 

RXOUT_PTR *= *4-1 

373B 


8830 

TX _DONE *= *4-1 

379C 


8300 

STAY *= *+l 

3790 


8910 

MODE *= *+-1 

379E 


89£0 

TRNPAR *= *+l 

379F 


8930 

HVYTR *= *+l 

37A0 


8940 

CONCUR *= *+l 

37 A 1 


8950 

CHAR * ^ *4-1 

37A£ 


8960 

GRBAUD *— *4-1 



8370 

u 

9 



8980 

n 

9 



8990 

a 

9 


—37 A3 

37A3 

04 B 7 0000 
04BS 

«04BF 

04 BF 

37 A 3 £07133 


10£0 


10 

£0 

30 

40 

50 

60 

70 

80 


I NCLUDE #D£ s LQADNGO, M6; 


; MICRO LOADER/RUN SYSTEM FOR MPP 
5 SMART TERMINAL 10/4/84 

; STRUCTURE OF HEADERS ISs 
5 BYTES 0~>5 STOCK <FF FF SL SH EL 
,“W1'LL EXECUTE AT BYTES s SL SH 

? DO NOT USE MULTIPLE ORIGIN FILES I 
; <USE BINARY SAVE FROM DOSE, 0, ETC) 

5 WOULD START AS 5 *»*BE6IN-3 
? JMP 60/ INI 7 C3BYTES) 

? BEGIN ACTUAL CODE 


30 ? 

0100 ; 
0110 5 
01£0 ROM 


* 


0130 *= RAM 

0140 RENAME . WORD 0 
0150 HDRBFF *= *4-6 
0160 RAM «= * 

0170 *-= ROM 

0180 GETHDR JSR CLOSE!*! 


EH) 

i 

« 
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37A6 A230 

0 1 90 

LDX #*30 

37A8 A903 

0E00 

LDA #*03 

37AA 9D4203 

0E10 

ST A I CCOM, X 

3 7 AD ADB704 

0EE0 

LDA RENAME 

37B0 9D4403 

0E30 

ST A ICBAL, X 

37B3 ADB804 

0E40 

LDA RFNAME+1 

37B6 9D4503 

0E50 

ST A I CB AH , X 

37B9 A904 

0E60 

LDA #4 

37BB 9D4A03 

0E70 

ST A ICAX 1 , X 

37BE A900 

0E80 

LDA #0 

V 

37C0 9D4B03 

0E90 

STA ICAX2, X 

37C3 2056E4 

0300 

JSR CIOV 

37CS 3048 

0310 

BMI OUTZ 

37C8 A907 

03E0 

GET EM LDA #7 5 READ B / 1 ES 

37CA 9D4203 

0330 

STA I CCOM, X 

37CD A9B9 

0340 

LDA # <HDRBFF 

37CF 9D4403 

0350 

S i A ICBAL, X 

37D2 A904 

0380 

LDA # > HDRBFF 

37D4 9D4503 

0370 

STA ICBAH, X 

37D7 A900 

0380 

LDA #*00 

3 7D9 9D4903 

0390 

STA ICBLH, X 

37DC A906 

0400 

LDA #*06 5 6 BYTE HEADER 

37DE 9D4803 

04 1 0 

STA ICBLL, X 

37E1 2056E4 

04E0 

JSR CIOV 

37E4 302A 

0430 

BMI OUTZ 

37E6 ADBB04 

0440 

LDA HDRBFF +2 ; LGADADDR 

37E9 9D4403 

0450 

STA ICBAL, X 

37EC ADBC04 

0460 

LDA HDRBFF+3 

37EF 9D4503 

0470 

STA ICBAH, X 

37F2 7 A980 

0480 

LOOPZA LDA #*80 

37F4 9D4803 

0490 

STA ICBLL, X 

37F7 2056E4 

0500 

JSR CIOV 

37FA 3014 

0510 

BMI OUTZ ; ALL DONE? 

37FC 18 

05E0 

CLC 

37FD BD4403 

0530 

LDA ICBHL, X 

3800 6980 

0540 

ADC #*80 

3802 9D4403 

0550 

STA ICEfAL, X 

3805 BD4503 

0560 

LDA ICBAH, X 

3808 6900 

0570 

ADC #*00 

380A 9D4503 

0580 

STA ICBAH, X 

38®D 4CF237 

0590 

JMP LOOPZA 

3810 98 

0600 

OUTZ TYA 

3811 48 

0610 

PHA 

3812 0230 

06E0 

LDX #*30 ; CANTUSEDISKERRQR 

3814 209A42 

0630 

JSR Cl'OCB sWILL HANGQNBOOT 

3817 68 

0640 

PLA 

3818 C988 

0650 

CMP #*88 

381 A D006 

0660 

BNE NOWAY 


38 1C 202530 0670 JSR RUN IT Z 

38 IF A001 0690 LDY #*01 

3821 60 0700 RTS 

3 8 EE' 0710 NOWAY 

38££ A0FF 0720 LDY #*FF 

38£4 60 0730 RTS 

3825 6CBB04 0740 RUN IT Z JMP (HDRBFF+2) 

=3828 0750 ROM . = * 

1030 .INCLUDE #D£;XIO. M65 

10 ; 


V. 


0 
SO 
40 
50 
60 
70 
80 


MB 5 


; D : X I O 
5 MODEM XI OS AND THE 
5 STATUS AND MODEM ST ATUS 

14 

9 

t» 

9 

; X 1034 DOES DATA TERM READY 

m 


3828 


30 

*= RDM 

3888 

00 

95 DPLX .BYTE 0 

3889 

00 

0 1 00 

DTE . BYTE 0 

3B2A 

00 

0110 

RTS .BYTE 0 

382B 

08 

0120 

RBAUD . BYTE: 8 

382C 

00 

0130 

CRX . BYTE 0 

382D 

00 

0140 

CTB . BYTE 0 

3B2E 

00 

% 0150 

DSR . BYTE 0 

382F 

00 

0160 

TRAN „ BYTE 0 

3830 

00 

0170 

PAR . BYTE 0 

383 1 

00 

0 1 80 

LF . BYTE 0 

— 

=0003 

0190 

. LOCAL 

?fl -r-o 

w‘ O O Ev. 


0£00 

XI 034 

3832 

A260 

0£10 

LDX #M0D 

3834 

A922 

0220 

LDA #34 

3836 

9D4203 

0230 

ST A ICCOM, X 

3839 

AD2936 

0240 

LDA DIR 

383C 

9D4A03 

0250 

ST A I CAX 1 , X 

383F 

AD2A38 

0260 

LDA RTS 

3848 

9D4803 

0270 

ST A ICAX2, X 

3845 

2056E4 

0280 

JSR CIOV 

3848 

60 

0290 

RTS 



0300 

ti 

9 



0310 

5X1036 DOES RBAUD, CARRIE 



0320 

5 CLEAR TO SEND AND 



0330 

; SET READY 



0340 

u 

9 

3849 


0350 

XI 036 

3849 

A260 


LDX #M0D 

3848 

A924 

0370 

LDA #36 

384D 

9D4203 

0380 

ST A ICCOM, X 

wJ v. s«»« V». 

AD2B38 

0390 

LDA RBAUD 

3853 

9D4A03 

0400 

STA I CAX 1 , X 

3856 

18 

0410 

CLC 

3857 

AD2C38 

0420 

LDA CRX 

385A 

SD2D38 

0430 

ADC CTB 

385D 

6D2E36 

0440 

ADC DSR 

3860 

9D4B03 

0450 

STA I CAX 2, X 

3863 

£05664 

0460 

JSR CIOV 

3866 

60 

0470 

RTS 



0480 

t* 

9 



0490 

; X 1036 DOES TRANSLAT, PAR 



0500 

; AND LINEFEED 



0510 

m 

9 

3867 


0520 

X 1 Oci»8 

3867 

A£60 

0530 

LDX #MOD 

3869 

A3£6 

0540 

LDA #38 

3868 

9D4203 

0550 

STA ICCOM, X 

386E 

18 

0560 

CLC 

386F 

AD2F38 

0570 

LDA TRAN 

3872 

6D3038 

0580 

ADC PAR 


PftBE £6 


3875 

6D3138 

0590 


ADC LF 

3878 

9D4A03 

0600 


STA I CAX 1 , X 

3878 

(4900 

06 1 0 


L 0 (4 #0 

387D 

9D4B03 

06£0 


ST ft ICftX£, X 

3860 

S056E4 

0630 


JSR CIOV 

3883 

60 

0640 


RTS 



0650 

a 

7 




0660 

; X 104© IS CONCURRENT 10 AND 



0670 

n 

SETS BUFFERS UP 



0680 

n 

9 


3884 


0690 

X 1 040 

3884 

(4£60 

0700 


LDX #MGD 

3886 

A9£8 

07 3.0 


LDft #40 

3888 

9D4£03 

07£0 


ST ft ICCOM, X 

38 SB 

A900 

0730 


LDft #0 

388D 

9D4803 

0740 


STft ICBLL, X 

3890 

9D4903 

0750 


ST ft ICBLH, X 

3893 

9D4403 

0760 


STft ICBAL, X 

3896 

9D4503 

0770 


STft ICBAH, X 

3899 

904(403 

0780 


STft ICftXl, X 

3S9C 

9D4B03 

0790 


STft ICAX£, X 

389F 

£05664 

0800 


JSR CIOV 

38ft£ 

60 

0810 


RTS 

Mi 

=38(43 

08£0 

ROM 

m 



1040 


-INCLUDE #D£ : MQDC. MSS 



1 0 5 

M0DC.M65 11/9/85 RCR 



£0 5 

PARFLG=0 NO PARITY 



v *0 ; 

PARFLG =1 ODD 



40 5 

PftRF 

r LB=*60 EVEN 

38ft3 


50 


*= ROM 


=0080 

60 CARDETLO = 128 ; HAYES STANDARD 

38ft3 

00 

70 ? Y 1 R 

. BYTE 0 

38A4 

00 

80 FCNX 

- BYTE 0 

38ft5 

00 

90 FNCY 

. BYTE 0 

38ft6 

00 

0100 

PARFLG . BY'i E <d 

38(47 

00 

0110 

SCRAT . BYTE & 



01£0 

m 

f 


38(48 

ft £60 

0130 

READ LDX #MOD 

38(4(4 

80(4338 

0140 


STY ? Y 1 R 

38t4D 

ft907 

0 1 50 


LDft #SETBIN 

38ftF 

9D4£03 

0 1 60 


STft ICCQM, X 

38B£ 

(4900 

0170 


LDft #0 

38B4 

9D4803 

0180 


STft ICBLL, X 

38B7 

904903 

0190 


STft ICBLH, X 

38BA 

8056E4 

0£00 


JSR CIOV 

38BD 

ftC(4338 

0 £ 1 0 


LDY ? Y 1 R 

38C0 

60 

0££0 


RTS 



0£30 

u 

5 


3BC i 

ft£60 

0£40 

WRITE LDX #MOD 

38C3 

8Cft338 

0£50 


STY ? Y 1 R 

38C6 

48 

0£60 


PH ft 

38C7 

ft90B 

0£70 


LDft #PUTB I N 

38C9 

9 04 £03 

0£80 


STft ICCOM, X 

38CC 

(4900 

0£90 


LDft #0 

3BCE 

9D4803 

0300 


STft ICBLL, X 

38D 1 

904903 

0310 


STft ICBLH, X 

38D4 

68 

• 

03£0 


PL ft 

38D5 

48 

0330 


PHft 


PAGE £7 



.*1! J \ 


L. *'* +*+* 


38D6 

E056E4 

0340 

JSR 

CIOV 

3809 

68 

0350 

PLA 


38DA 

ACA338 

0360 

LDY 

? Y 1 R 

38DD 

60 

0370 

RTS 




0380 

M 

n 


38DE 

60 

0390 

0FFH00K 

RTS 

38 DF 

60 

0400 

ONHDOK RTS 

38E© 

60 

0410 

MSPEC1 RTS 

38E1 

60 

04£0 

MSPEC£ RTS 

38 EE 

60 

0430 

MSPEC3 RTS 



0440 

* 

V 


38E3 


0450 

WAITASEC 

3SE3 

A900 

0460 

LDA 

#0 

38E5 

8514 

0470 

ST A 

$ 1 4 

38E7 

A514 

0480 

?W£ LDA 

*$14 

38E9 

C906 

0490 

CMP 

#6 

38EB 

30FA 

0500 

BMI 

?W£ 

38ED 

60 

0510 

RTS 




05£0 

« 


38 EE 


0530 

STATUS 


38EE 

A90D 

0540 

LDA 

#$0D 

38F0 

9D4E03 

0550 

ST A 

ICCGM, X 

38 F 3 

E056E4 

0560 

JSR 

CIOV 

38F 8 

60 

0570 

RTS 




0580 

tt 

9 



-390 1 

0590 

INI XMODEM = RESETMODEM 

Mj 

-390 1 

0600 

MODINIT 

« RESETMODEM 



0610 

* 

9 


38F7 


06 £0 

BIBXIO 


38F7 

£03£38 

0630 

JSR 

X 1 0 «£ 4 

38FA 

£04938 

0640 

JSR 

XI 036 

38 FD 

£06738 

0650 

JSR 

X 1 038 

3900 

60 

0660 

RTS 




0670 

ts 

9 


3901 


0680 

RESETMODEM 

3901 

A904 

0690 

LDA 


3903 

8D£E38 

0700 

ST A 

DSR 

3906 

A901 

0710 

LDA 

# i 

3908 

8D£838 

07£0 

ST A 

DPL.X 

390B 

8D£C38 

0730 

ST A 

CRX 

390E 

A908 

0740 

LDA 

#8 

3910 

8DC53A 

0750 

STA 

BAUD 

3913 

A900 

0760 

LDA 

#$00 

3915 

8D£F38 

0770 

STA 

TRAN 

3918 

A 900 

0780 

LDA 

#0 

39 1 A 

803038 

0790 

STA 

PAR 

3910 

A930 

0800 

LDA 

#48 

39 IF 

8D£A38 

0810 

STA 

RTS 

39££ 

A90£ 

08£0 

LDA 

#c! 

39£4 

8D£D38 

0830 

STA 

CIS 

“J .“*j —T 

J/ / 

A9C0 

0840 

LDA 

# 1 9 c! 

39£9 

8D£938 

0850 

STA 

DTR 

w «7 L -. w 

60 

0860 

RTS 




0870 

« 

9 


39£D 


0880 

MSTAT 


39 ED 


0890 

MST ATS 


39 ED 

A £60 

0900 

LDX 

#MOD 

39£F 

AS 00 

09 1 0 

LDA 

#$0D 


2 * 
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D£ ; MODC. MSS 


3931 

9D4803 

0980 

ST ft 

ICCOM, X 


3934 

8056E4 

0930 

JSR 

CIOV 


“3Q -‘*7 

v*J w v**/ 1 f 

ftDEB0S 

0940 

LDft 

747 


393ft 

60 

0950 

RIB 





0960 

m 



393B 


0970 

RING? 



393B 

£05139 

0980 

JSR 

OPENM 

; 0 IF NORING 

Q *2 c: 

Wr »*r V#»r Imi> 

£08039 

0990 

JSR 

MSTftTS 


394 1 

38 

1000 

SE C 



3943 

C580 

1010 

CMP 

CftRDETLO 


3944 

B005 

1080 

BCS 

? R 1 


394S 

F003 

1030 

BEQ 

?R1 


3948 

ft 000 

1040 

? RTN LOY 

#0 

; NORING 

394ft 

60 

1050 

RTS 



394B 

S0E338 

1 060 

?R 1 JSR 

WftITftSEC 


394 E 

ft00i 

1 070 

LOY 

#1 

S R I NG 

3950 

60 

1080 

RTS 





1090 

u 

9 



3951 


1 100 

OPENM 



3951 

£07139 

1110 

JSR 

ClOSEM 


3954 

ft£60 

i i£0 

L.DX 

#MOD 


3956 

ft903 

1130 

LDft 

#3 

; OPEN 

3958 

9D4E03 

1 140 

ST ft 

ICCOM, X 


33*58 

ft 9 80 

1 1 50 

LDft 

# < KDEV 


395D 

904403 

1160 

ST ft 

ICBftL, X 


3960 

A904 

1 170 

LDft 

# > RDEV 


o CL •“*» 

v.i 3DC, 

904503 

1180 

ST ft 

ICBftH, X 


3965 

ft90D 

1 1 90 

uDft 

#$&D 

; DYNftMIC ST AT 

3967 

9D4R03 

1800 

ST ft 

ICftXl, X 


396ft 

8056E4 

1810 

JSR 

CIOV 


396D 

E0F738 

1880 

JSR 

BIBXIO 

• 

3370 

60 

1830 

?GM1 ft RTS 




1840 

41 

f 



3971 


1850 

CLOSE 



3971 


I860 

CLOSEM 



3971 

ft 900 

1870 

LDft 



3973 

8514 

1 880 

ST ft 

$14 


3975 

£0£D39 

1 890 

?CM1 JSR MSTftTS 


3378 

ftDED0£ 

1 300 

LDft 

749 

; BYTES IN OUTBUFF 

397 B 

F006 

1310 

BEQ 

?CM8 


39 7 D 

ft5 1 4 

1380 

LDft 

$14 

5 4/ 60 SECOND 

397 F 

C90ft 

1330 

CMP 

#10 


v?j 981 

30F£ 

1340 

BMI 

?CM1 




1350 

;?CM£ JSR WftlTftSEC 

3983 

ft £60 

1 360 

?CM8 LDX 

: #MOD 


3985 

ft90C 

1370 

LDft 

#$0C 


3987 

9O4S03 

1380 

Sift 

ICCOM, X 


398ft 

£056E4 

1 390 

JSR 

C 1 0 V 


3980 

60 

1400 

RTS 





1410 

a 

9 



398E 

ft£30 

1480 

CLOSED LDX #DSK 


3990 

ft90C 

1430 

LDft 

#*0C 


399S 

E060 

1440 

CPX 

#MQD 


3994 

F0DB 

1 450 

BEQ 

CLOSEM 


3996 

9D4£03 

1460 

ST ft 

ICCOM, X 


3999 

£05664 

1 470 

JSR 

CIOV 


399C 

60 

1480 

RTS 





1 490 

» 

9 





F‘AGE £9 


D£ 5 MG DC- M65 


3990 


1500 

0PENM2 

3990 

205139 

1 5 1 0 

JSR GPENM 

39A0 

£02039 

15£0 

JBR MSTAT 8 

39A3 

48 

1530 

PH A 

39A4 

£08438 

1540 

JSR XI 040 

39A7 

68 

1550 

PLA 

39A8 

38 

1560 

SEC 

39A9 

C580 

1570 

CMP CARDETLO 5 X <CARDET ? 

39AB 

B003 

1 580 

BCS ?0M3 

39 ad 

A900 

1590 

?0M5 LDA #0 ;NO CARRIER 

39AF 

60 

1600 

RTS 

39B0 

A901 

1610 

?0M3 LDA #1 ;HHVt CARRIER 

3 9 BP 

w -/ JL* L>. 

60 

1 Sc !0 

RTS 

MM 

: 39B3 

1630 

ROM m ~ * 



1050 

.INCLUDE #D2 t TERM. MSS 



10 5 

SAVE #02 s TERM. M65 



£0 5 




30 5 


39B3 


40 

ROM 



50 ; 


3983 


60 XMBUFF *■= *4-130 

3A35 


70 TEMP BUFF *4-130 

3AB7 

00 

80 XTEMP - BYTE 0 

3AB8 

00 

90 FI RSTBL.0CK . BYTE 0 

3A89 

00 

0 1 00 

X TEMPI . BYTE 0 

3ABA 

00 

0110 

XTEMP2 .BYTE 0 

3ABB 

00 

0120 

CHKSUM . BYT E 0 

3ABC 

00 

0130 

XMODF . BYTE 0 

3ABD 

00 

0140 

ERFL .BYTE 0 

3ABE 

00 

0 1 50 

KEYTOG . BYTE 0 

3ABF 

00 

0160 

XBYTE .BYTE 0 

3AC0 

00 

0170 

LAST REC .BYTE 0 

3 AC 1 

00 

0180 

XBLKNUM .BYTE 0 


0000 

0190 

BFPTS . WORD 0 

3AC4 

00 

0200 

DERFLG .BYTE 0 

3AC5 

46 

02 1 0 

BAUD . BYTE 70 

3AC6 

00 

0££0 

ENDRAM . BY1 E 0 

3AC7 

00 

0£30 

LASTCH . BYTE 0 

3AC8 

00 

0240 

GOT REC .BYTE 0 

3AC9 

00 

0250 

PHONE . BYTE 0 

3ACA 

00 

0260 

OPFLG . BYTE 0 

3ACB 

0000 

0270 

SCPOS . BYTE 0, 0 



0£80 

n 

f 



0290 

u 

*? 



0300 

; TERM 

3A CD 

£05A3B 

0310 

LOOP 1 JSR STKEY 

3AD0 

0003 

0320 

BNE CL OOP 1 

3AD£ 

4CA040 

0330 

JMP MENU 5 START KEY 

3 A 05 

4C653B 

0340 

CL00P1 JMP LOOP2 



0350 

» 

3AD8 

0005 

0360 

BNE J'LP£ 

3ADA 

AD9E04 

0370 

LDA ANSFLS 

3ADD 

0003 

0380 

BNE YANSF 

3ADF 

4C653B 

0390 

JLP2 JMP L00P2 



0400 

A 

S 

3AE£ 

£0A041 

0410 

YANSF JSR TESOPT 

3AE5 

F006 

042© 

BEQ NO OPT 1 

3AE7 

8CCA3A 

0430 

STY GPFLB 



PAGE 

30 



D£ : TERM. M65 

GAEA 

E03D3F 

0440 

JSR PXMES7 $ n 8 AVE ON" MB G 


3AED 

ADC93A 

0450 

N00PT1 LDA PHONE ; PHONE ANSWERED? 


3AF0 

F003 

046>0 

BEQ PH YES 


3AF8 

4C683B 

0470 

JMP LG0P3 




0480 

a 

9 




0490 

; CHECK PHONE FOR RETURN FROM MENU 




0500 

M 

9 


3AF5 

c!0Ee38 

0510 

PHYEB JSRMSPEC3 s RINGDETECT 


3AF8 

F0D3 

0520 

BEQ LOOP! 


3AFA 

E0EE38 

0530 

MORI N 6 JSR MS PEC3 


3AFD 

D0FB 

0540 

B HE NORING 


3AFF 

E0DE38 

0550 

JSR OFFHOOK 


3B08 

A 900 

0560 

LOA #0 


3B04 

85 1 *3 

0570 

STA *13 


3B06 

A513 

0580 

WCARR LOA $13 


3B08 

C904 

0590 

CMP #4 


3B0A 

1037 

0600 

BPL HANGUP 


3B0C 

E05A3B 

0610 

JSR STKEY 


3B0F 

0003 

0680 

BNE NS TART 


3B1 1 

4CAD4D 

0630 

RTMEMU JMP MENU 




0640 

N 

9 


3B 1 4 

£08039 

0650 

NSTART JSR MS TATS 


3B17 

F0EO 

0660 

BEQ WCARR 


3819 

A901 

0670 

LOA #1 


3B i B 

8DC93A 

0680 

STA PHONE s PHONE ANSWERED 


38 IE 

A 9 00 

0690 

LOA #0 


3B80 

8514 

0700 

STA $14 


-7- r\ ."•« 

A514 

0710 

FORSEC LDA $14 


3 BE 4 

C914 

0780 

CMP x 4 


3BE6 

D 0 FA 

0730 

BNE FORSEC ? ONE SECOND 




0740 

; NOW HAVE CARRIER DETECTED 


3 BE ' 8 

£07139 

0750 

JSR CLOSE 


3BEB 

£09039 

0760 

JSR OPEN 



ADCA3A 

0770 

LDA OPFLG 


3B3 1 

F035 

0780 

BEQ LOOPS 5 SEND LOOP 


3B33 

809304 

0790 

STA DUPLF 5 MAKE HALF DUPLEX 


3B36 

£0SA3B 

0800 

KEYSNT JSR STKEY 


w JLJ w n/ 

F0D6 

08 1 0 

BEQ R TMENU 


3B3B 

£08039 

0880 

JSR MSTAT 



F0F6 

0830 

BEQ KEYSNT 


3840 

4CA13B 

0840 

JMP NENDTE 




0850 

s 

9 


3B43 

£0OF38 

0860 

HANGUP JSR ONHOOK 


3B46 

80F430 

0870 

JSR STL I NE 


3849 

A900 

0880 

LDA #0 


3B4B 

8DC93A 

0890 

STA PHONE , 


3B4E 

8DC808 

0900 

STA *0£C8 


3B51 

8D9A04 

0910 

STA LOADF 


3B54 

8O9B04 

0980 

STA SAVEF 


3B57 

4CCD3A 

0930 

JMP LOOP 1 




0940 

it 


3B5A 

A9F8 

0950 

STKEY LDA #$F 8 


3B5C 

8 D 1 FO 0 

0960 

STA CONSOL 


3B5F 

A901 

0970 

LDA #1 


3861 

8 C 1 FO 0 

0980 

BIT CONSOL 


3B64 

60 

0990 

RTS 




1000 

» 




1010 

; RETURNS OPPRESSED, 1=N0T PRESSED 




PftGE 

/ 

31 










D£ s TERN* M65 



10£0 

? WAIT HERE FOR CARRIER 




1030 

tt 

9 



3B65 

£09039 

1 040 

LOOPS JSR OPENMS 5 OPENS CONCURNT 


7DC HX 
uDDO 

(4900 

1050 

L00P3 LOft #0 


3B6ft 

8540 

1060 


STA *4D ; NO ATTRACT MODE 


3B6C 

30F430 

1070 


JSR STL I (ME 


3B6F 

(4511 

1080 

CftROK LOft BRKKEY 


3B7 1 

ft9F8 

1090 

NGBRK1 LOft #*F 8 


3B73 

8O1FD0 

1100 


ST ft CONSOL 


3876 

(4DBE3ft 

1110 


LOft KEYTG 8 


3879 

F01£ 

1 1£0 


BEQ TESTER 


3B7B 

*4904 

1 130 


LOft #4 


387D 

£ 01 FD 0 

1140 


ftNO CONSOL 


3B80 

0003 

1 150 


BNE ENDTEl 


3883 

4CED3B 

1160 


J M P E N 0 T E S T 




1170 

w 

9 



3885 

A 900 

1180 

ENDTEl LDA #0 


3887 

8DBE3I4 

1 190 


ST ft KEY TOG 


3B8ft 

4 CED3B 

1£00 


J N P E N i) T E S V 




1 £ 1 0 

SI 

? 



3B8D 

ft 901 

1££0 

TES 

TER LOft #1 


3BBF 

EC1FD0 

1 £30 


BIT CONSOL 


3898 

0003 

1 £40 


BNE most ft RT 


3894 

4CftD4D 

1 £50 


JMP MENU 




1260 

« 

9 



3B97 

ft 90 4 

1 £ ? 0 

NOSTART LDA #4 


3B99 

EC1FO0 

1 £80 


BIT CONSOL 


7DQr 

vJ A*.’ W W 

F003 

1 £90 


BEQ NENDTE 


3BSE 

4CED3B 

1300 


JMP END TEST 




1310 

tt 

* 



3B(41 

ftDC80£ 

1 3£0 

NENDTE LDA $0£C6 


3Bft4 

F00B 

1330 


BEQ GREEN 


3Bft6 

ft900 

1340 


LOft #0 


3Bft8 

BDcama 

1350 


STA $ 0 £C 8 


38ftB 

E0493F 

1 360 


JSR PXMESS 


3BftE 

4CBE3B 

1370 


JMP C0N76 




1 380 

til 

9 



3BB 1 

ft9B4 

1390 

8 REEN LDA #180 


3BB3 

8DC80E 

1400 


STA *0£C8 


%^BB 6 

ft 09 104 

1410 


LOft BINF 


3BB9 

0003 

14£0 


BNE CON 76 


3BBB 

E03D3F 

1430 


JSR PXNES7 


3BBE 

ft901 

1440 

CGN76 LOft #1 


3BC0 

8DBE3ft 

1450 


Sift KEYTOG 


38C3 

ftD9504 

1460 


LDA SAVMOD 


3BC6 

F0 1 5 

1 470 


BEQ NOSftVM 


3BC8 

ftD9B04 

1480 


LOft SftvEF 


3BCB 

4901 

1490 


EOR #1 


3BCD 

8D9B04 

1500 


S T ft SftVEF 


3BD0 

ftO8ft04 

1510 


LOft BOTBUF 


3BD3 

65D£ 

1 5£0 


Sift SENPTR 


3BD5 

(4D8B04 

1530 


LOft B0TBUF+1 


3BD8 

8503 

1 540 


ST ft SENPTR-+* 1 


380(4 

4CE53B 

1550 


JMP ENDOPT 

. 



1560 

m 



I 3BDD 

(4D9ft04 

1570 

NOSftV( Y l LOft LQftDF 


3BE0 

4901 

1 580 


EOR #1 


3BFP 

A>« V rMM »<■■» 

809(404 

1590 


ST ft LOft OF 










PftGE 


D£sTERM„ M65 


3BE5 

PD9104 

1600 

ENDQPT LDft BINF 

3BE8 

F003 

1610 

BEQ 

ENDTEST 

38Eft 

4CF43D 

1 6£0 

JMP 

XMODEM 



1630 

m 

n 


3BED 

£0£E4£ 

1640 

ENDTEST 

JSR BCREftO 

3BF0 

ADFC0£ 

1650 

LDft 

OH 

3BF3 

C9FF 

1660 

CMP 

#*FF 

3BF5 

F0£9 

1670 

BEQ 

NOKEY 

3BF7 

£04 15ft 

1680 

JSR 

GET KEY 

3BFA 

£08530 

1690 

JSR 

OUTCGN 

3BFD 

48 

1 700 

PH ft 


3BFE 

£00138 

1710 

JSR 

WRITE 

3C01 

ftD9304 

1 720 

LDft 

DUPLF 

3004 

F019 

1730 

BEQ 

DUPHLF 

3006 

68 

1740 

PL ft 


3007 

£0ft33D 

1750 

JSR 

INCONV 

3C0A 

48 

1760 

PH ft 


3C0B 

ft£40 

1770 

LDX 

# *40 

3C0D 

ft900 

1780 

LDft 

#0 

3C0F 

9D4803 

1790 

Sift 

ICBLL, X 

sc i a 

9D4903 

1800 

Sift 

ICBLH, X 

3C 15 

ft90B 

1810 

LDft 

#*0B 

3C 1 7 

9D4803 

1 8£0 

ST ft 

ICCGM, X 

301ft 

68 

1830 

PLft 


3C1B 

48 

1840 

P H ft 


3C1C 

£05664 

1850 

JSR 

CIGV 

3C 1 F 

68 

I860 

DUPHLF PLft 

3CE0 

£0£D39 

1870 

NOKEY JSR MS T ft I 

f**S .«-4 •**! 

vj Iw C< vJ 

00 1 0 

1880 

BNE 

INCH 

3C£5 

D0£C 

1890 

BNE 

NE RK 08 

3C£7 

ftD9B04 

1900 

LDft 

SftVEF 

~r\ j*n a 

F0 1 £ 

1910 

BEQ 

NOGO 

3C£C 

£01330 

I960 

TOO 

w w t \ 

NO I NON 

3C£F 

100ft 

1930 

BPL 

SENOUT 

3C31 

48 

1940 

PH ft 


wJ y« m 

£0493F 

1 950 

JSR 

PXMES8 

3035 

68 

I960 

PLft 


3C36 

ftC9804 

1970 

LDY 

D I SKF 

3039 

F003 

I960 

E*EQ 

NOGO 

3C3B 

£00030 

1990 

SEN0UT . 

JSR OUTDO 1 

■;r "jf-cr 
*!> LJC, 

4C683B 

£000 

NQG0 JMP LOOPS 



£010 

* 

•? 


304 1 

£0ft838 

£0£0 

INCH JSR READ 

3044 

0001 

£030 

CPY 

#1 

3046 

F00B 

£040 

BEQ 

NERKGB 

3048 

ftOBD3ft 

£050 

LDft 

ERFL 

304B 

F003 

£060 

BEG? 

GOER R 

3C4D 

4C683B 

£070 

JMP 

LOOPS 



£080 

« 

J 


3050 

O i7i o o *=; 1 

i««» ‘C 1 mm L»h W •!« 

£090 

BOERR JSR DERROR 

tsr *•*> 
L/ u vj 

80073ft 

£100 

NERK08 ! 

STft LftSTCH 

*■,*«✓ %j,/ i, , ,1 

£0ft33O 

£110 

TQR 

W W 1 % 

I NCONV 

3059 

48 

£ 1 £0 

PH ft 


3C5A 

ft£40 

£130 

?NK 8ft LDX #*40 

3050 

ft900 

£ 1 40 

LDft 

#0 

7pCi:c 

80B03ft 

£150 

ST ft 

ERFL 

306 1 

904803 

£ 1 60 

ST ft 

ICBLL, X 

3064 

904903 

£170 

STft 

I CBLH, X 



PftBE 


“j- 


£)£■ : TERM. M65 


ulb / 

A90B 

8180 

LD(4 

#$>0B 

3069 

904803 

8190 

ST (4 

ICCOM, X 

3060 

68 

8 800 

PL (4 


3C6D 

48 

88 1 0 

PH(4 


3C6E 

2056E4 

8880 

JSR 

C I QV 

3071 

AD9A04 

8830 

?NK8B LDft LOftDF 

3074 

F006 

8840 

BEQ 

GTERM 

3076 

808030 

8850 

JSR 

KEEPER 

3079 

4C683B 

8860 

JMP 

LOOPS 



8870 

* 

•f 


3C7C 

68 

8280 

GTERM PL (4 

3C7D 

40683B 

2290 

JMP 

L00P3 



2300 

D 

9 




2310 

sCHftR OiM STACK TO 



8380 

9 


3080 

68 

8330 

KEEP’ E R P L Pi 

3081 

(4(4 

8340 

TAX 


3082 

68 

8350 

PL ft 


3083 

(48 

2360 

TRY 


3084 

68 

8370 

PL ft 


3085 

BOB 73(4 

8380 

ST ft 

XTEMP 

3088 

98 

8 vi 9 0 

T V ft 


7pnn 

48 

8400 

PH ft 


306(4 

8ft 

84 1 0 

T X Pi 


3C8B 

48 

8480 

P s H ft 


3080 

ADB 73ft 

8430 

LDft 

* 

XTEMP 

3C8F 

48 

8440 

PH ft 


3090 

(4D9804 

8450 

LDft 

DISKF 

3093 

0D9D04 

8460 

QRft 

DPRFLG 

3096 

F022 

8470 

BEQ 

SftVTOBF 

3098 

(4830 

8480 

LDX 

#$30 

3C9ft 

(4900 

8490 

L Oft 

#0 

3090 

9D4803 

2500 

ST ft 

ICBLL, X 

3C9F 

91)4903 

8510 

ST ft 

ICBLH, X 

3Cft2 

(490B 

8580 

LDft 

#$0B 

30(44 

9D4803 

8530 

ST ft 

ICCOM, X 

30(47 

68 

2540 

PLft 


30(48 

8056E4 

2550 

JSR 

CIOV 

3CAB 

3001 

8560 

BM I 

DSKERR 

3CftD 

60 

8570 

RTS 




2580 



3CftE 

80885 1 

8590 

DSKERR JSR DERR0R 

3CB i 

(4900 

8600 

MCPERR LDft 

3CB3 

809(404 

86 1 0 

STft 

LOftDF 

3CB6 

8DC808 

8680 

ST ft 

$0808 

30B9 

60 

8630 

RTS 




8640 

u 

W 


3CBft 

A000 

8650 

SftVTOBF 

LDY #0 

3CBC 

(4D9C04 

8660 

LDft 

FULLF 

3CBF 

F004 

8670 

BEQ 

NftFULL 

3001 

68 

8680 

PLft 


3002 

4CB13C 

8690 

JMP 

MCPERR 



8700 

it 

9 


3005 

68 

2710 

NAFULL 1 

PLft 

3006 

9100 

8780 

STft 

(BUFPTR) » 

4 * 

3008 

E6CC 

2730 

INC 

BUFPTR 

3CCA 

0008 

2740 

BNE 

NOZIP 

3000 

E6CD 

2750 

INC 

BUFPT R-+- 1 
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D£ s TERM, MBS 


3CCE 

A5CC 

£760 

IMOZ I P LDft BUFPTR 

3CD0 

8D8E04 

£ 770 

ST A 

MAXTOR 

3CD3 

A5CD 

£780 

LDA 

BUFPTR+i 

3CD5 

8D8F04 

£790 

ST A 

MAXTOR*-* 

3CDB 

AD8D04 

£800 

LDA 

BUFMAX* 1 

3CDB 

C5 CD 

£810 

CMP 

BUFPTR+1 

u)LUU 

B033 

c!0£0 

APS 

w w 

NOBERR 

3CDF 

A944 

£830 

LDA 

#68 

3CE1 

8DC808 

£840 

ST A 

*0£C8 s BUFF 

3CE4 

A900 

£850 

LDA 

#0 

3CE6 

8D1FD0 

£060 

ST A 

CONSOL 

3CE9 

A5CD 

£870 

LDA 

BUFPTR** 1 

7PCP 

w w w. t.' 

CD8904 

£880 

CMP 

TOPBUF+ 1 

3CEE 

D0££ 

£090 

BNE 

NOBERR 

3CF0 

A5CC 

£900 

LDA 

BUFPTR 

3CF£ 

CD8804 

£9 1 0 

CMP 

TOPBUF 

3CF5 

D01B 

£9£0 

BNE 

NOBERR 

3CF7 

C6CC 

£930 

DEC 

BUFPTR 

3CFS 

D00E 

£940 

BNE 

NOTZE 

3CFB 

C6CD 

£950 

DEC 

BUFPTR+l 

3CFD 

3CFD 

A9FD 

£960 

£970 

NOTZE 

LDA 

#3>FD 

3CFF 

80E35A 

£980 

J'SR 

ALL PC 

3D0S 

A900 

£990 

LDA 

#0 

3D04 

8D9A04 

3000 

ST A 

LOADF 

3007 

8D9B04 

30 1 0 

ST A 

SAVEF 

3D0A 

BDC80E 

30£0 

ST A 

$0£CB 

3D0D 

A901 

3030 

LDA 

#1 

3D0F 

8D9C04 

3040 

ST A 

FULLF 

3D IE 

60 

3050 

NOBERR RTS 

3D 1 3 

AD9804 

3060 

3070 

m 

NO INCH LDA DISKF 

3D 16 

D041 

3080 

BNE 

RD I SK 

3D 1 a 

A 000 

3090 

LDY 

#0 

3D 1 A 

BIDS 

3100 

LDA 

(SENPTR) , Y 

3D 1C 

48 

31 10 

PHA 


3D 1 D 

A5CC 

3 1 £0 

LDA 

BUFPTR 

3D IF 

38 

3130 

SEC 


3D80 

ESDci 

3140 

CDP 
vD JD 4,**/ 

SENPTR 

3D££ 

D01C 

3 1 50 

BNE 

NOSFUL 

3D£4 

A5D3 

3160 

CONTIS 1 

w.DA SENPT R*** 1 

3D£6 

C5CD 

3170 

CMP 

BUFPTR*+- i 

3D£8 

D016 

3180 

BNE 

NOSFUL 

3D£A 

A900 

3 1 90 

LDA 

#0 

3D£C 

8D9B04 

3£00 

ST A 

SAVEF 

3D£F 

8DC80S 

3£ 1 0 

STA 

$0£C8 

3D3£ 

AD8A04 

3££0 

LDA 

BOTBUF 

3D35 

85D£ 

3£30 

STA 

SENPTR 

3D37 

AD8B04 

3E40 

LDA 

BOTBUF+i 

3D3A 

85D3 

3£50 

STA 

SENPT R-+* 1 

3D3C 

68 

3£60 

PLA 


3D3D 

A080 

3£70 

LDY 

#$80 

•n yv ~ > ****** 

60 

3£80 

RTS 


3D40 

E6DE 

3£90 

3300 

B 

NOBFUL 

INC SENPTR 

^D4E 

D00S 

3310 

BNE 

RET 0K£ 

3D44 

E6D3 

33£0 

INC 

SENPT R*** 1 

3D46 

68 

3330 

RETQK£ 

PLA 


F ULL 


PftGE 
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3D47 

ft 001 

3340 

LDY #1 

3049 

60 

3350 

RTS 



3360 

w 

? 

3D4fl 

ft900 

3370 

RETER2 LDft #0 

3D4C 

809804 

3380 

ST ft SftVEF 

3D4F 

8DC802 

3390 

ST ft $0208 

3053 

200B42 

3400 

J SR DSKFIX 

3055 

68 

3410 

PL ft 

3056 

ft080 

3420 

LDY #$80 

3058 

60 

3430 

RTS 



3440 

u 

? 

3059 

ft230 

3450 

RDISK LDX #$30 

3D5B 

ft 90 7 

3460 

LDft #$07 

3050 

904203 

3470 

STft ICCQM, X 

3060 

ft900 

3480 

LDft #0 

3062 

8DC43P 

3490 

S T ft 02 R F LG 

3065 

9D4803 

3500 

STft ICBLL^X 

3068 

904903 

3510 

STft ICBLH, X 

3D6B 

2056E4 

3520 

JSR CIGV 

506b 

48 


PHft 

3D6F 

C003 

3540 

CPY #3 5 LftSTBYTE OF FILE? 

307 1 

F0D7 

3550 

BEQ RETER2 

3073 

98 

3560 

TYft 5 SET FLftBS 

| 3074 

1008 

3d / 0 

BPL NERR4 

3076 

20225 1 

3580 

NOEGF JSR DERRQR 

1 3079 

ft 901 

3590 

LDft # 1 

3078 

8DC43ft 

3600 

STft DERFL0 

3D7E 

4C4ft3D 

36 1 0 

JMP RET ERE 



3620 

« 

3081 

68 

3630 

NERR4 PLft 

3082 

ft 00 1 

3640 

LDY #1 

3084 

60 

3650 

R T S 



3660 

t* 

? 



3670 

5 CONVERT OUTGOING CHftRftCTER 



3680 

n 

? 

3085 

ftE9004 

3690 

OUTCON LDX TRftNF 

3088 

0018 

3700 

BNE NBSP 

i 308ft 

C998 

3710 

CMP #$9B 

3D8C 

0002 

3720 

BNE NCR 

i 3D8E 

ft 9 00 

3730 

LDft #13 

3090 

C970 

3740 

NCR CMP #$7D 

3092 

0002 

3750 

BNE NCLR 

3094 

ft90C 

3760 

LDft #12 

3096 

C9FD 

3770 

NCLR CMP #$FD 

3D98 

0002 

3780 

BNE NBEL 

309ft 

ft 907 

3790 

LDft #7 

3D9C 

C97E 

3800 

NBEL CMP #$72 

! 3D9E 

0002 

3810 

BNE NBSP 

3Oft0 

P908 

3820 

LDft #8 

30ft2 

60 

3830 

NBSP RTS 



3840 

it 

? 



3850 

5 CONVERT INCOMING CHftRftCTER 



3660 

•1 

3Dft 3 

AE9004 

3870 

INCONV LDX TRftNF 

| 3Dft6 

0023 

3880 

BNE NOTRftN 

30ftS 

297F 

3890 

ftND # $ 7 F 

| 3Dftft 

C90D 

3900 

CMP #13 

30ftC 

0002 

39 1 0 

BNE NOCR 
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3Dft£ 

P99B 

39£0 

L DP #*9 8 

3DB0 

C907 

3930 

NOCR CMP #7 

3D8£ 

D00E 

3940 

BNE NOBEL 

3DB4 

P9FD 

3950 

LDP #*FD 

3DB6 

C908 

3960 

NOBEL CMP #8 

3 DBB 

D00£ 

3970 

BNE NOBSP 

3DBP 

P97E 

3980 

LDP #*7E 

3DBC 

C90C 

3990 

NOBSP CMP #1 £ 

3DBE 

D00£ 

4000 

BNE NOCLR 

3DC0 

P97D 

4010 

LDP #*7D 

3DC£ 

C9£® 

40£0 

NOCLR CMP #3c! 

30C4 

B005 

4050 

BCS NOTRPN 

3DC6 

68 

4040 

PL ft 

3DC7 

68 

4050 

PLP 

3DC8 

4C683B 

4060 

JMP LOOP3 



4070 

n 

7nr ta 

vJ U w 

60 

4080 

NOTRPN RTS 



4090 

» 



4100 

5 SEND CHPR SCREEN/MODEM 



4110 

» 

3DCC 

48 

4 1 £0 

OUTDO 1 PHP 

3DCD 

48 

4130 

PH ft 

3DCE 

18 

4140 

CLC 

3 DCF 

68 

4150 

PLP 

3DD0 

£08530 

4160 

JSR OUT CON 

3DD3 

E0C138 

4170 

JSR WRITE 

3DD6 

AE9304 

4180 

LDX DUPLF 

3DD9 

D0 1 £ 

4190 

BNE ECHO 

3DDB 

P50® 

4£00 

LDP *00 

3DDD 

8514 

4£1 0 

ST ft *14 

3DDF 

P514 

4££0 

?LP 1 LDft $14 

3DE 1 

C901 

4£30 

CMP #1 

3DE3 

F00D 

4£40 

BEQ NECHO 

3DE5 

£0£D39 

4£50 

JSR MS TAT 

3DE8 

PDED0£ 

4£60 

LDft 749 

3DEB 

D0F£ 

4£70 

BNE ?LP1 

3DED 

68 

4£80 

ECHO PLP 

3DEE 

48 

*+ c! 9 0 

PHft 

3DEF 

£0E35ft 

4300 

JSR PLL PC 

3DF£ 

68 

4310 

NECHO PLP 

3DF3 

60 

43£0 

RTS 



4330 

t* 

9 



4 3 4 0 

5 XMODEM /USES LOftDF PND 



4350 

a* 

41 

•■ii 

=000 1 

4360 

SOH « 1 

Sn 

0004 

4370 

EOT = 4 

»»«« 

0006 

4380 

ftCK * 6 

= 

00 1 5 

4390 

NPK * £1 

MW 

=0018 

4400 

CftN « £4 



4410 

N 

9 

3DF4 

£900 

44£0 

XMODEM LDP #0 

3DF6 

8DC83P 

4430 

ST ft GOTREC 

3DF9 

P5CC 

4 4 0 

LDft BUFPTR 

3DFB 

8DC£3ft 

4450 

ST ft BFPTS 

3DFE 

P5CD 

4460 

LDP BUFPTR+1 

3 E00 

8DC33P 

4470 

ST ft BFPTS+1 

3E03 

PD9P04 

4480 

LDP LOPDF 

3E06 

F003 

4490 

BEQ XMSftVE 
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3E08 

4C673F 

4500 


JMP XMLOAO 




4510 

» 



3E0B 

205E3F 

45£0 

XMSftVE JSR PXMES 6 


3E0E 

A902 

4530 


LDft #2 


3E10 

8DC13A 

4540 


Sift XBLKNUM 


3E13 

A900 

4550 


LDft #0 


3E1 5 

8DC43ft 

4560 


ST ft DERFLG 


3E 18 

8DC03P 

4570 


ST ft LAST REC 


3E 1 B 

E0E73E 

4580 


JSR GREC 


3E1E 

D003 

4590 


BNE XSNLP 


3E£0 

4C7C3E 

4600 


JMP WHAP 




4610 

■ 

n 



3££3 

EA 

46£0 

XSNLP NOP ; 

LDft LftSTCH 



4630 

m 

•f 

CMP #NAK 




4640 

a 

3 

BEG! RETRY 1 


3E£4 

ft 90ft 

4650 

SEN REC LDft #10 


3E£6 

8DBF3A 

4660 


STft XBYTE 


3E29 

£05941 

4670 

CON 1 

JSR GXCHftR 


3E2C 

1008 

4680 


BPL NT I ME 


3EEE 

CEBF3R 

4690 


DEC XBYTE 


3E31 

D0F6 

4700 


BNE CONI 


3E33 

4C643E 

4710 


JMP RETRY! 

. 



4720 

m 

3 



3E36 

D 0 1 ft 

4730 

NT I ME BNE NOEKCH 

5 NOQUT 

3E38 

4CP340 

4740 


JMP OPS TOP 




4750 

m 

3 



3E3B 


4760 

NOQUT 


3E3B 

CDBB3A 

4770 


CMP CHKSUM 


3E3E 

D 0 1 £ 

4780 


BNE NOEKCH ; 

ECHO THE CHKSUM? 

3E40 

ft908 

4790 


LDft #8 


3£4£ 

8DBF3ft 

4800 


STft XBYTE 


3E45 

£05941 

4810 

NOTftGN JSR GXCHftR 


3E48 

1008 

48£0 


BPL NOEKCH 


3E4ft 

CEBF3R 

4830 


DEC XBYTE 


3E4D 

D0FE 

4840 


BNE NOTftGN 5 

WAIT ACK OR NftK 

3E4F 

ADBB3A 

4850 


LDft CHKSUM 5 

CHKSUM «ftCK 

3E5£ 

C906 

4860 

NOEKCH CMP #ftCK 


3E54 

F014 

4870 


BEQ REMRDY 


3E56 

C915 

4880 


CMP #NftK 


3E58 

F00ft 

4890 


BEQ RETRY 1 


3E5A 

C918 

4900 


CMP #CAN 


TfTCjp 

w w w 

D003 

4910 


BNE NOTCftN 


3E5E 

4C1041 

4920 


JMP REMABOR 




4930 

m 

3 



3E6 1 

4C£43E 

4940 

NOTCftN JMP SENREC 




4950 

n 

3 



3E64 

CEC 1 3ft 

4960 

RETRY 1 DEC XBLKNUM 

3E67 

4C873E 

4970 


JMP CONGO 




4980 

n 

9 



3E6A 

ADC43A 

4990 

REMRDY LDA DERFLG 


3E&D 

F008 

5000 


BEQ SECT 


3E6F 

A900 

5010 


LDft #0 


3E7 1 

8DC43ft 

50£0 


STft DERFLG 


3E74 

4CA340 

5030 


JMP OPSTOP 




5040 

m 

3 



3E77 

£0E73E 

5050 

SECT 

. JSR BREC 


3E7A 

D00B 

5060 


BNE CONGO 3 ; 

GOT DATA TO SEND 

3E7C 

ft904 

5070 

W H ft ft 

1 LDft #EGT 



PPGE 

38 
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3E7E 

E0C138 

5080 

JSR 

WRITE 


3EB1 

801E41 

5090 

JSR 

E0TMES 


3E84 

4CC84 1 

5 1 00 

JMP 

X HEX IT 




5110 

m 

i 



3E87 

P901 

51£0 

CONGO LDP #SQH 


3E89 

80C138 

5130 

JSR 

WRITE 


3E8C 

PDC 13ft 

5140 

LDP 

XBLKNUM 


3E8F 

£0C 1 38 

5150 

JSR 

WRITE 


3E98 

PDC13P 

5160 

LDP 

XBLKNUM 


3E95 

49FF 

5170 

EOR 

# * F F 


3E97 

20C138 

5160 

JSR 

WRITE 


3E9P 

PDC 13P 

5190 

LDP 

XBLKNUM 

M 

3E9D 

80E441 

5£00 

JSR 

PBLKNUM 


3EP0 

P900 

5£10 

LDP 

#0 


3EP8 

8DBB3P 

5££0 

STP 

CHKSUM 

* 

3EP5 

P9B0 

5830 

LDP 

# 1 88 


3EP7 

8DBF3P 

5840 

ST ft 

XBYTE 


3EPP 

PCBF3P 

5850 

XSENLP LDY XBYTE 


3EPD 

B9B339 

5860 

LDP 

XMBUFF, Y 


3EB0 

48 

5870 

PHP 



3EB 1 

18 

5 c! 8 0 

CL C 


• 

V»/ rim 4*#' In— 

6DBB3P 

5890 

PDC 

CHKSUM 


f, lw 4ii V*»r 

8DBB3P 

5300 

STP 

CHKSUM 


3EB8 

88 

5310 

PLP 



3EB9 

80C 1 38 

5380 

JSR 

WRITE 


3EBC 

£0ft04 1 

5330 

JSR 

TESQPT 


3EBF 

F005 

5340 

BEQ 

NOOPT 


3EC1 

P901 

5350 

LDP 

#1 


3EC3 

8DC43P 

5360 

STP 

DERFLB 


3FPF, 

1m r . ■ «m* V*/ 

CEBF3P 

5370 

NOOPT DEC XBYTE 


3EC9 

D0DF 

5380 

BN£ 

XSENLP 


7crp 

PDBB3P 

5390 

LDP 

CHKSUM 


3ECE 

E0C138 

5400 

JSR 

WRITE 


3ED 1 

EEC 13 P 

5410 

INC 

XBLKNUM 


3ED4 

D003 

54£0 

SHE 

BUG68 


3ED6 

EEC13P 

5430 

INC 

XBLKNUM 


3EDS 

P00F > 

5440 

BU6G£ LDY #10 


3EDB 

P514 

5450 

LOP LDP 

*14 


3EDD 

C514 

5460 

LUPNGW CMP *14 


3EDF 

F0FC 

5470 

BEQ 

LUPNOW 


Cl 4 C7 1 

w A* 

88 

5480 

DEY 



r~ r" •“» 

D0F7 

5490 

BNE 

LUP 


3EE4 

4C843E 

5500 

JMP 

SENREC 




55 1 0 

* 





5580 

5 GET REC FROM DISK OR 

MEMORY RND 



5530 

j PUT IT IN THE XMBUFF 

PND PPD THE 



5540 

M T H 1 

" S te. J ’ 

Y* JQ 




5550 

* 1 

IF RECORD IN BUFF 



5560 

; 0 

EOF 




5570 

a 

9 



3EE7 

807139 

5580 

GREC JSR CL OS EM 


3EEP 

PDC03A 

5590 

LDP 

LPST REC 


3EED 

F006 

5600 

BEQ 

STOK 


3EEF 

£09039 

56 1 0 

JSR 

0PEMM8 


3EF8 

P000 

5680 

LDY 

#0 


3EF4 

80 

5630 

RTS 


/ 



5640 

* 

9 



3EF5 

i 

P980 

5650 

STOK LDP #188 



PftGE 

39 
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3EF7 

8DBF3ft 

5660 

ST ft XBYTE 




3EFft 

£01330 

5670 

STOKE JSR NO INCH 




3EFD 

08 

5680 

p* |— 1 j.»* 




3EFE 

ftCBF3ft 

5690 

LDY XBYTE 




3F01 

QQft '3*30 

5700 

Sift XNBUFF, Y 




3F04 

O jQ 

i—O 

5710 

PLP 




3F05 

1 0£B 

57£0 

BPL MOCHR 




3F07 

PD9804 

5730 

LDft DISKF 5 FIX IT 

LftST 

CHft R 

FROM MEM IS NOT GOOD 

3F0A 

D00B 

5740 

BNE DONT 




3F0C 

C 8 

5750 

I NY 




3F0D 

C08 1 

5760 

CPY #1£9 5 IS THE 

Lftsr 

CHftR 

THE START OF ft NEW R 

3F0F 

0006 

5770 

BNE DONT 5 WERE OK 






5760 

; THIS 16 ft BftD REG SO RETURN 



3F1 1 

£09039 

5790 

JSR GPEMN£ 




3F 1 4 

R 000 

5800 

LDY #0 




3F16 

60 

5810 

RTS 






5S£0 

H 

9 




3F 17 

88 

5830 

DONT DEY 




3F 18 

F00F 

5840 

BEQ RTFOL 




3Flft 

8CBF3ft 

5850 

STY XBYTE 




3F1D 

ft980 

5860 

LDft # 1 £8 




3F1F 

38 

5670 

SEC 




3FS0 

E DBF3Fr 

5880 

SBC XBYTE 




3F£3 

Q 

Z7 Z) O V.J V.J ZP 

5890 

PftDLOP STft XMBUFF, Y 




3F£6 

88 

5900 

DEY 




3F£7 

D0FP 

5910 

BNE PftDLOP 

/ 



3F£9 

£09039 

59£0 

RTFOL JSR OPENMS 




3F£C 

P 001 

5930 

LDY #1 




3F£E 

8CC03P 

5940 

STY LftSTREC 




3F3 1 

60 

5950 

RTS 






5960 

u 

•j 




3F3£ 

CEBF3f) 

5970 

MOCHR DEC XBYTE 




r- KS- 

v>J f O wJ 

D0C3 

5980 

BNE STOKE 




3F37 

£09039 

5990 

JSR OPENNE 




*«» 

P 001 

6000 

LDY #1 




3F3C 

60 

6010 

RTS 





• 

80£0 

« 

i 




3F3D 

£0DD5ft 

6030 

PXMES7 JSR CRET 




3F40 

ft958 

6040 

LDft #88 




3F4£ 

S05C5P 

6050 

JSR PLINE 




3F45 

£0E 1 5ft 

6060 

JSR BUZ Z R 




3F48 

60 

6070 

RTS 






6080 

5 




3F49 

£0DD5ft 

6090 

PXWESQ JSR CRET 




3F4C 

A959 

6100 

LDft #89 




3F4E 

£05C5A 

6110 

JSR PLINE 




3F51 

£0E15P 

6 1 £0 

JSR BUZZ R 




3F54 

60 

6130 

RTS 






6140 

n 

9 




3F55 

£0DD5ft 

6150 

PXMES1 JSR CRET 




3F58 

ft 954 

6 1 60* 

LDft #84 




3F5ft 

E05C5A 

6170 

JSR PLINE 




3F5D 

60 

6 1 80 

RTS 






6190 

« 




%Alr 5E 

£0DD5ft 

6£00 

PXMES 6 JSR CRET 




3F61 

P957 

6 c ! 1 0 

LDft #87 




3F63 

£05C5A 

S ££0 

JSR PLINE 




3F66 

60 

6 £30 

RTS 
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3F67 

80553F 

6£40 
6 £50 

u 

XMlOHD JSR PXMES1 

3F6A 

A901 

6 £60 

LDfi #1 

3FBC 

8DC13A 

6£70 

Sift XBLKNUM 

3F6F 

8DB83A 

6£80 

SIR FIRSTBLQCI 

3F7£ 

A915 

6 £90 

X RETRY LDf-t #N«K ; 

3F74 

20C138 

6300 

JSR WRITE 

3F77 

A90A 

6310 

BETREC LDR # 1 ® 

3F79 

oUdduH 

63£0 

STft CHKSUM 

3F7C 

£05941 

6330 

GETRTY JSR BXCHHR 

3F7F 

1008 

6340 

BPL NX TDK 

3F81 

CEBB3A 

6350 

DEC CHKSUM 

3F84 

D0F6 

6360 

BNE GETRTY 

3FS6 

4C783F 

6370 

JMP X RETRY 

3F89 

D003 

6380 

6390 

VS 

* 

NXTOK BNE NOPST s 

3F8B 

4CA340 

6400 

JMP OPSTOP 

3F8E 

C901 

6410 

64£0 

u 

•) 

NOPST CMP #9DH 

3F90 

F0£9 

6430 

BEQ BSOH 

3F9£ 

C904 

6440 

CMP #EOT 

3F94 

D00B 

6450 

BNE N RE MS TO 

3F96 

A906 

6460 

j LDA #ACK 5 

3F98 

£0C 1 38 

6470 

/ JSR WRITE ; 

3F9B 

£0CE40 

6480 

JSR SAVELAST 

3F9E 

4C0541 

6490 

N0REC3 JMP REMS TO 

3FA1 

C9 1 8 

6500 

6510 

B 

NREMSTO CMP #C«N 

•n r— "n 

ciF Aci 

D003 

65£0 

BNE XBPDSH 

3FA5 

4C1041 

6530 

JMP REMftBOR 

3FA8 

C915 

6540 

6550 

U 

? 

XBADSH CMP #NAK ? 

3FAA 

F0D0 

6560 

BEQ GETRTY 

3FAC 

C906 

6570 

CMP #ACK 

xil- Hil 

F0CC 

6580 

BEQ GETRTY 

3FB0 

£0£A41 

6590 

JSR XIBREC 

3FB3 

D003 

6600 

BNE N0ST2 

3FB5 

4CA340 

66 1 0 

JMP OPSTOP 

3FB8 

4C7£3F 

66c!0 

6630 

«s 

1 

N0ST2 JMP X RETRY 

3FBB 

ADC83A 

6640 

6650 

« 

w 

GSOH LDA OOTREC 

3FBE 

£05941 

6660 

JSR GXCHAR 

3F Cl 

30AF 

66 7 0 

BMI X RETRY 

3FC3 

D003 

6680 

BNE NO PS TOP 

3FC5 

4CA340 

6690 

JMP OPSTOP 

3FC8 

49 FF 

6700 

6710 

w 

? 

NOP STOP EOR #*FF 

3FCA 

8DBA3A 

6780 

ST A X TEMPS ? 

3FCD 

£05941 

6730 

JSR GXCHAR s 

3FD0 

30A0 

6740 

BMI X RETRY 

3FD£ 

D003 

6750 

BNE NQPST 8 

3FD4 

4CA340 

6760 

JMP OPSTOP 

3FD7 

CDBA3A 

6770 

6780 

NOPST £ CMP X TEMPS 

3FDA 

F 00 B 

6790 

BEQ BLKNUM 

3FDC 

£0£A4 1 

6800 

JSR XI GREG 

3FDF 

D003 

6 >S 1 0 

BNE XIG0P3 


OPERATOR abort 


(poro yl/L&O 


NHK? 


’4 IB THE Bl-OCK # 
THE SAME AS 



PPBE 41 


D£ s TERM, mb *5 


3FE 1 

4CP340 

68£0 

JMP 

OP ST OP 



6830 

tt 

*? 


3FE4 

4C7S3F 

6840 

X I GOP 3 JMP X RETRY 



6850 

tt 

7 


3FE7 

49 FF 

6860 

BLKNUM EQR #$»FF 

3FE9 

CDC13P 

6870 

CMP 

XBLKNUM 3 PM I Sc i I I NO 

3FEC 

F0£1 

6880 

BEQ 

XNUMQK s THE RIGHT BLK 

fUtf 

vir Efc. 

CEC 13P 

6890 

DEC 

XBLKNUM 

3FF 1 

CDC13P 

6900 

CMP 

X BLKNUM | SPME BLK PGP I N ? 

3FF4 

08 

6910 

PHP 


3FF5 

JEECl3fi 

69£0 

INC 

XBLKNUM 

3FFS 

£0£P4 1 

6930 

J S R 

X I OR EC 

3FFB 

D004 

6940 

BNE 

XI 64 

3FFD 

c!B 

6950 

PLP 


3FFE 

4CP340 

6960 

JMP 

OPSTQP 



6970 

A 

9 


4001 

£8 

6980 

X I 64 PLP 

400E 

F003 

6990 

BEQ 

XPCKCO ; PCK IT PND CONIC 

4004 

4C1041 

7000 

JMP 

REMPBOR 



70 1 0 

at 

9 


4007 

P906 

70 £0 

XPCKCO L 

.DP #PCK 

4009 

E0C138 

7030 

J S H 

WRITE 

400C 

4C773F 

7040 

JMP 

BET REC 



7050 

ft 

* 


400F 

£0E44 1 

7060 

XNUMGK JSR PBLKNUM 

40 1 £ 

A280 

7070 

LDX 

# 1 £8 

4014 

A900 

7080 

LDP 

#0 

40 1 6 

8DBB3P 

7090 

s y p 

CHKSUM 

4019 

8EBP3P 

7 1 00 

XMLUP SIX X TEMPS* 

40 1 C 

£0594 1 

7 1 1 0 

JS R 

8XCHPR 

40 IF 

1003 

7 1 £0 

BPL 

XGK£ 

40£1 

£07£3F 

7130 

J S R 

X RETRY 

40£4 

F07D 

7140 

XOK£ BEG 

! OPS TOP 

4 0 c! 6 

PEBP3P 

7 1 50 

LDX 

X TEMP£ 

40£9 

48 

7160 

PHP 


40£P 

18 

7170 

clc 


40EB 

6DBB3P 

7180 

PDC 

CHKSUM 

40EE 

8DBB3P 

7 1 90 

SIP 

CHKSUM 

4031 

68 

7 £00 

PLP 


403c! 

9DB339 

7£1 0 

STP 

XMBUFF, X 

4035 

CP 

7££0 

DEX 


4036 

00 E 1 

7 £30 

BNE 

XMLOP 

4038 

£05941 

7£40 

J8R 

GXCHPR 

403B 

1003 

7 £50 

BPL 

XOK1 

403D 

4C7£3F 

7£60 

JMP 

X RETRY 



7£ 70 

* 

9 


4040 

F061 

7£80 

XQK1 BEG 

! OPS TOP* 

4048 

CDBB3P 

7 £90 

CMP 

CHKSUM 

4 0 4 5 

F008 

7300 

BEQ 

GOOD REC 

4047 

P900 

73 1 0 

LDP 

#0 

4049 

8DC83P 

73£0 

STP 

GOT REC 

404C 

4C7£3F 

7330 

JMP 

X RETRY 



7340 

it 

* 


4 0 4 f~ 

P901 

7350 

80ODREC 

LDP #1 

4051 

8DC83P 

7360 

STP 

GOT REC 

4054 

PDB83P 

7370 

LDP 

F I RSTBLQCK 

4057 

0003 

7380 

BNE 

? X T 

4059 

£08340 

7390 

JSR 

SPV REC 
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D2 s TERM. M6S 


405C 

207740 

7400 

? X T 

JSR 

MOVEBLOCK 

405F 

A900 

7410 


LDA 

#0 

40 s i 

8DB83A 

7420 


ST A 

FIRST BLOCK 

4064 

A 906 

7430 


LO A 

#ACK 

4066 

20C138 

7440 


JSR 

WR I T E 

4069 

EEC13A 

7450 


I NC 

XBLKNUM 

406C 

ADC13A 

7460 


LDA 

XBLKNUM ; THESE ARE SO 

406F 

0003 

7470 


BNE 

BUGS 1 $ X BLKNUM W RAPS 

4071 

EEC 1 3 A 

7480 


INC 

XBLKNUM • TO 1 , NOT 0 ! 

4074 

4C773F 

7490 

BUGS! JMP GET REC 



7500 

u 

9 



4077 


7510 

MOVEBL0CK 

4077 

A280 

7520 


LDX 

#^>B0 

4079 

B0B339 

7530 

? XL 

LO A 

XMBUFF, X 

407C 

9D353A 

7540 


ST A 

TEMP BUFF, X 

407F 

CA 

7550 

• 

DEX 


4080 

10F7 

7560 


BPL 

? XL 

4082 

60 

7570 


RTS 




7580 

9 



4083 

207139 

7590 

SAVREC JSR CLOSEM 

4086 

A2B0 

7600 


LDX 

#i£8 

4088 

8EBF3A 

7610 


STX 

XBYTE 

408B 

AEBF3A 

7620 

RE CL 

-OP LDX XBYTE 

408E 

B0353A 

7630 


LDA 

TEMPBUFF, X 

4091 

48 

7640 


PHA 


4092 

20803C 

7650 


JSR 

keeper 

4095 

AD9A04 

7660 


LDA 

LOADF 

4098 

F009 

7670 


BEQ 

OPS TOP 

409A 

CEBF3A 

7680 


DEC 

XBYTE 

4090 

D0EC 

7690 


BNE 

RECLOP 

409F 

209039 

7700 


J S R 

0PENM2 

40A2 

60 

7710 


RTS 




7720 

* 

•r 



40A3 

A0C23A 

7730 

DPS TOP 1 

_DA BFPTS 

40P6 

85CC 

7740 


ST A 

BLJFP1 R 

40A8 

8D8E04 

7750 


ST A 

MAX TOP 

40PB 

A0C33A 

7760 


LDA 

BFPTS-f- 1 

40AE 

85 CD 

7770 


ST A 

BUFPTR+ 1 

40B0 

8D8F04 

7780 


ST A 

MAX TOP + 1 

4083 

AD9804 

7790 


LDA 

D I SKF 

40B6 

F003 

7800 


BEQ 

NODSK 

40B8 

200B42 

7810 


JSR 

DSKF1X 

40BB 

A90 1 

7820 

NODSK LDA #1 

40BD 

8DBE3A 

7830 


ST A 

KEY f OG 

40C0 

202A41 

7840 


JSR 

X I GREC 

40C3 

A 9 1 8 

7850 


LDA 

4 C A N 

40C5 

20C1 38 

7860 


JSR 

WRITE 

40C8 

201E41 

7870 


JSR 

EOT ME S 

40CB 

4CC841 

7 880 


JMP 

XMEXIT 



7890 

« 

>P 



40CE 

A201 

7900 

SAVELAB* 

T LDX #1 

4000 

BDB339 

7910 


LDA 

XMBUFf , X 

40D3 

8DBF3A 

7920 


ST A 

XBYTE 

40D6 

38 

7930 


SEC 


40D7 

A980 

7940 


LDA 

# 1 28 

4009 

EDBF3A 

7950 


SBC 

XBYTE 

40DC 

6DC83A 

7960 


ST A 

GOT REC 

40OF 

207 1 39 

7970 

SAV 

JSR 

ClOSEM 



PPGE 

43 










D2 s TERM. M65 

40E£ 

P.£80 

7980 

LDX 

#1£8 


40E!4 

8EBF3P 

7990 

SIX 

X B Y 1 ' E 


40E7 

PEBF3P 

8000 

LZP LDX 

XBYTE 


40EP 

BDB339 

8010 

LDP 

XMBUFF, X 


40ED 

48 

80£0 

PHP 



40EE 

£08030 

8030 

JSR 

KEEPER 


40F 1 

PD9P04 

8040 

LDP 

LOPDF 


40F4 

F0PD 

8050 

BEQ 

OPS TOP 


40F6 

CEBF3P 

8060 

DEC 

XBYTE 


40F9 

PDBF3P 

8070 

LDP 

XBYTE 


40FC 

CDC83P 

8080 

CMP 

60TREC 


40FF 

D0E6 

8090 

BNE 

LZP 


4101 

£09039 

8100 

JSR 

0PENM8 


4 1 04 

60 

8110 

RTS 





8 1 £0 

M 

f 



4105 


8130 

REMSTOP 



4105 

P906 

8140 

LDP 

# P 0 K 


4107 

£00138 

8 1 50 

JSR 

WRIT E 


4 1 m 

£0 1 E4 1 

8 1 60 

JSR 

EOTMES 


410D 

400841 

8170 

JMP 

XMEXIT 




8 1 80 

si 

9 



4110 

£0DD5P 

8190 

REMPBOR 

JSR CRET 


4113 

P956 

8 £00 

LDP 

#86/ 


4115 

£05C5P 

8£ 1 0 

JSR 

PL I NE 


41 18 

£0£15P 

8££0 

JBR 

BUZ Z R 


4118 

4CP340 

8 £30 

JMP 

OPS TOP 




8£40 

it 

9 



41 IE 

£0DD5P 

8£50 

EOTMES . 

JSR CRET 


4 1 £ 1 

P955 

8£60 

LDP 

#85 


41 £3 

£05C5P 

8£70 

JSR 

PL I NE 


4 1 £6 

80E15P 

8£80 

J S R 

BU Z Z R 


4 1 £9 

60 

8£90 

RTS 





8300 

a 

f 





8310 

5 WP I T 

FOR P SECOND BETWEEN 




63£0 

5 CHPRPCTERS PND THEN RETURN 




8330 

5 OR PBORT WITH OPTION KEY 




8340 

* ? 
9 

y * =s 




8350 

5 0 

PBORT WITH OPTION KEY 




8360 

? 1 

ONE SECOND HPS ELPPSED 




8370 

a 

9 



4 1 £P 

P93E 

8380 

X I OREO 

LDP #6£ ; WPS 62, NOW ESEC 


4 1 £C 

8DB73P 

8390 

SIP 

XTEMP 


4 1 £F 

£0P04i 

8400 

XIGRC1 

JSR TESOPT 


4 1 3£ 

F003 

8410 

BEQ 

TST£ 


4134 

P000 

B4£0 

LDY 

#0 


4 1 56 

60 

8430 

RTS 





8440 

a 

9 



4137 

£02039 

8450 

TST £ JSR MSTPT 


4 1 3$ 

F00B 

8460 

BEQ 

NOCHPR 


413C 

£0P838 

8470 

JSR 

REPD 


413F 

£08041 

8480 

JSR 

P I T 


4 1 4£ 

P93C 

8490 

LDP 

#60 


4144 

8DB73P 

8500 

8 TP 

XTEMP 


4147 

P5 1 4 

8510 

NOOHPR i 

LDP % 1 4 


4149 

CDB93P 

8520 

CMP 

X TEMP 1 


414C 

F0E 1 

8530 

BEQ 

XIGRC1 


414E 

8DB93P 

8540 

SIP 

X TEMPI 


4151 

CEB73P 

8550 

DEC 

X TEMP 
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4154 

D0D9 

8560 

BNE 

XIGRQl 

4156 

P001 

8570 

LDY 

#1 

4158 

60 

8580 

RTS 




8590 

n 




8600 

; SET CHARMODEM OR ABORT OPTI'ONKE Y 



8610 

• ? y ? 

•r T 

***** 
■ i»<» 



8660 

5 1 

OK CHAR IN A REG 



8630 

; 0 

OPTION KEY ABORT 



8640 

; $80 

OVER 1 SECOND ABORT 



8650 

% 

¥ 


4159 

P97C 

8660 

BXCHPR L 

DA # 1 E4 

415B 

8DB73P 

8670 

ST P 

XTENP 

415E 

20P04 1 

8680 

GXC JSR 

TESOPT 5 OPTION KEY DOWN 

4161 

F 003 

8690 

BEQ 

TSTBUF 

4163 

A 000 

8700 

LDY 

#0 

4 1 65 

60 

8710 

RTS 




8760 

m 

* 


4166 

606D39 

8730 

TSTBUF JSR MSTPT 

4 1 69 

0016 

8740 

BNE 

INCHPR 

416B 

P514 

8750 

LDP 

$14 

416D 

CDB93P 

8760 

CMP 

X TEMPI 

4170 

F0EC 

8770 

BEQ 

GXC 

4176 

8DB93P 

8760 

SIP 

X TEMPI 

4175 

CEB73P 

8790 

DEC 

XTEMP 

4 1 78 

D0E4 

8800 

BNE 

GXC 

4 i 7£i 

P080 

8810 

LDY 

#$80 

417C 

60 

8860 

RTS 




8830 

M 

? 


4170 

60P838 

8840 

INCHPR J 

SR READ 

4180 

48 

8850 

PIT PHP 


4181 

A901 

8860 

LDP 

#1 

4183 

8DFE06 

8870 

STP 

DSPFLG 

4186 

P90B 

8880 

LDP 

#$08 

4188 

PE'40 

8890 

LDX 

#$40 

4 1 0P 

9D4603 

8900 

S T P 

ICCOM, X 

4 1 SD 

P900 

8910 

LDP 

#0 

418F 

9D4803 

8960 

STP 

I CELL, X 

4196 

68 

8930 

PLP 


4193 

48 

8940 

PHP 


4194 

6056E4 

8950 

JSR 

CIOV 

4197 

P900 

8960 

LDP 

#0 

4199 

8DFE06 

8970 

STP 

DSPFLG 

4 1 9C 

68 

8980 

PLP 


419D 

P001 

8990 

LDY 

#1 

4 1 9F 

60 

9000 

RTS 




9010 

« 




9060 

; IS THE 

: OPTION KEY DOWN. 



9030 

5 9 Y 

'’~1 YES 



9040 

. 'Y’=0 NO 



9050 

w 

*4 

r 


4IP0 

P9F8 

9060 

TESQPT LDP #$F8 

4 IPS 

8D1FD0 

9070 

STP 

CONSOL 

41P5 

PDBE3P 

9080 

LDP 

KEY TOG 

41P8 

F00C 

9090 

BEQ 

INTEST 

4 1 PA 

P904 

9 1 00 

LDP 

#4 

4 1 PC 

6D1FD0 * 

9110 

PND 

CONSOL 

4 1PF 

F005 

9 i 60 

BEQ 

INTEST 

4 1 B 1 

P900 

9130 

LDP 

#0 
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4 1 B3 

8DBE3ft 

S 1 40 

ST ft 

KEY TOG 


4 IBS 

ftDBE3ft 

9 1 50 

IN TEST L 

.DA KE Y TOG 


4 IBS 

D00ft 

9160 

BNE 

NOT NON 


41 BB 

AS 04 

9 1 70 

LDft 

#4 


41BD 

8C1FD0 

9180 

BIT 

CONSOL 


4100 

D003 

9190 

BNE] 

NOTNOW 


4 1 08 

A 001 

9800 

LDY 

#1 


41C4 

60 

9 8 1 0 

RTS 





9 8 8 0 

n 



4105 

ft 000 

9830 

NQTNGW LDY 


4107 

80 

9840 

RTS 





9250 




4108 

807 139 

9860 

XMEXIT J 

SR CLOSED 


4 1 OB 

AS 00 

9870 

LDft 

#0 


4 1 CD 

8 DCS 08 

9280 

ST A 

$0808 


4 1 D0 

8DSA04 

9290 

ST A 

L.GADF 


41D3 

8DSB04 

9300 

ST A 

SftVEF 


41D6 

8DS804 

9310 

ST A 

DISKF 


4 IDS 

ft 830 

9380 

LDX 

#$30 


41DB 

809A48 

93 30 

JSR 

C 1 0 C B 7 C L 0 S E D I S K B U G 

4 IDE 

209D3S 

9340 

JSR 

0PENM8 


4 1 E 1 

4C6S3B 

9350 

JrtP 

L.. 0 0 P 




9360 

U 

? 





9370 

; PRINT 

XNES3 AND THE BLOCK # 

I 

4 1E4 

85D4 

9380 

PBLKNbM 

STA FR0 5 PRINT BLOCK 

# 

41E6 

AS 00 

9390 

LDft 

#0 


41E8 

85D5 

9400 

SI ft 

FR0-+-1 


41EA 

20AAD9 

94 1 0 

JSR 

IFP 


41 ED 

20E6D8 

9480 

JSR 

FASO 


41F0 

ft240 

9430 

LDX 

#$40 


4 1 FE‘ 

A98F 

9440 

LDft 

# <X! v iES3 


41F4 

9D4403 

9450 

Sift 

I C B ft L , X 


41F7 

A94C 

9460 

LDft 

# ) XNES3 


41F9 

9D4503 

9470 

Sift 

I OBAN, X 


4 1 FC 

AS 17 

9480 

LDft 

#83 


4 1 FE 

9D4803 

9490 

ST A 

I CELL, X 


4201 

80D45A 

9500 

J'SR 

ALLPX 


4804 

800158 

9510 

JSR 

PASO 


4207 

80DD5A 

9580 

JSR 

CRET 


420ft 

80 

9530 

RTS 





9540 

•1 



420B 

807139 

9550 

D S K F I X JSR C L 0 S E i Y t 

• 

420E 

ft 8 vi 0 

9560 

LDX 

#$30 


4210 

A90C 

9570 

LDft 

#* 0 C 


48 1 8 

9D4803 

9580 

STA 

I CCQMy X 


4 8 1 5 

8058E4 

9590 

J* S R 

CIOV 


4818 

ft903 

9600 

LDA 

# «fc 2 9 9 9 9 9 9 9 9 9 9 9 

Tt 


481ft 

9D4203 

96 1 0 

STA 

I COON, X 


42 ID 

AS98 

9680 

LDA 

# <BUFF 


48 IF 

9D4403 

9630 

STA 

ICBAL, X 


4882 

1 Iiim 

A900 

9640 

LDA 

# > BUFF 


4884 

9D4503 

9650 

STA 

JOB AH, X 


4287 

8058E4 

9660 

JSR 

CIOV 


488ft 

209D39 

9670 

JSR 

QPENN 8 


488D 

80 

9680 

RTS 





9690 

u 

? 



488E 


9700 

SCREftD 



488E 

AD9704 

97 1 0 

LDA 

OOLFLG 
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42 3 1 

3066 

9720 

BMI 

TIGGZ 

4233 

ftD 1 FD0 

9730 

LDft 

CONSOL 

4236 

C905 

9740 

CMP 

#5 

4238 

D05F 

9750 

BNE 

TIGGZ 

423ft 

ft554 

9760 

LDft 

$54 

423C 

F05B 

9770 

BEQ 

TIGGZ 

423E 

8DCB3ft 

9780 

ST ft 

SCPOS 

4241 

ft555 

9790 

LDft 

$55 

4243 

8DCC3ft 

9800 

ST ft 

SCPOS 1 

4246 

ft9B4 

9810 

LDft 

# 1 80 

4248 

BDCS0 2 

9820 

ST ft 

$02C8 

424 B 

A900 

9830 

LDft 

#0 

4240 

8554 

9840 

SI ft 

$54 

424 F 

U»« L Sto«. 
Ci) %»•< Wr 

9850 

Sift 

*•••» 

Jw/ 

4251 

8DBB02 

9860 

ST ft 

$0clBB 

4254 

ft90D 

9870 

LDft 

#13 

4256 

8D4A03 

9880 

ST ft 

$034ft 

4259 


9890 P'RftK 


4259 

ft907 

9900 

LDft 

#7 

425B 

ft 2 00 

99 1 0 

LDX 

#0 

425D 

9D4203 

9920 

ST ft 

1CC0M, X 

4260 

ft900 

9930 

LDft 

#0 

4262 

9D4803 

9940 

ST ft 

I CELL, X 

4265 

9D4903 

9950 

Sift 

ICBLH, X 

4268 

2056E4 

9960 

JSR 

CIOV 

426B 

48 

9970 

pH ft 


426C 

ADBB02 

9980 

LDft 

$02B & 

426F 

D006 

9990 

BNE 

TIGGX 

427 1 

20803C 

010000 

JSR 

KEEPER 

4274 

4C5942 

0 1 00 1 0 

JMP 

FRftK 



010020 

«k 


4277 

ft90C 

010030 

TIGGX 

LDft #12 

4279 

8D4ft03 

010040 

ST ft 

$034ft 

427C 

68 

010050 

PL ft 


4270 

ft 900 

010060 

LDft 

#0 

427F 

8DC802 

010070 

Sift 

$02C8 

4282 

ft9FS 

010080 

LDft 

#$F8 

4284 

8D1FD0 

0 1 0090 

ST ft 

CONSOL 

4287 

CECB3P 

010100 

DEC 

SCPOS 

428ft 

ftDCB3ft 

0 1011 0 

LDft 

SCPOS 

428D 

8554 

0101 20 

Sift 

$54 

426F 

ftDCC3ft 

0101 30 

LDft 

SCPOS-*- 1 

4292 

Ot er bt isr 

O v.-* \-J w 

010140 

ST ft 

$55 

4294 

ft9FD 

0101 50 

LDft 

#$FD 

4296 

20E35ft 

010160 

JSR 

ftLLPC 

4299 

60 

010170 

TIGGZ 

RTS 


‘429ft 


A O Q Q 

“ L*« r“ 

429ft ft90C 
429C 9D4203 
429F 205664 
42ft2 60 


010180 

010190 

1060 


5 GET TEXT 


INCLUDE #D2 s OPENS* MSS 


05 ; OPENS. MS 5 

06 ? 

10 ROM „ a* * 

20 ; CLOSE IOCS INDEXED BY X 


30 CIOCB LDft #$0C 

40 Sift ICCMD 

50 JSR CIOV 

60 RTS 

70 - 


J- Ml 1 itl« . 

» LLUbfc 
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D'd. 2 OPENS « M65 


80 ; OPEN KEYBOARD 


48A3 

A 8 * 10 

90 OKEYB LDX 

#$ 1 0 

48R5 

809A48 

0100 

JSR 

CXOCB ; CLOSE #1 

48A8 

A900 

0110 

LDA 

#0 

48AA 

9D4803 

0180 

ST A 

I CELL, X $ LENGl H 0 

48AD 

9D4903 

0130 

ST A 

ICBL.H, X 

48B0 

A903 

0140 

LDA 

#$03 5 OPEN 

48B8 

9D4803 

0 1 50 

ST A 

ICCMD, X 

48B5 

A904 

0 1 60 

LDA 

#4 § INPUT 

48B7 

9D4A03 

0170 

ST A 

ICAXI, X 

48BA 

A9F9 

0180 

LDA 

# <KEYB 

4 SBC 

9D4403 

0190 

ST A 

I LBAL, X 

48BF 

A948 

0800 

LDA 

# > KEYS 

4 SCI 

9D4503 

08 1 0 

ST A 

ICBAH, X 

48C4 

8056E4 

0880 

JSR 

C I OV 

42G7 

60 

0830 

RTS 




0840 

« 

•1 




0850 

; OPEN EDITOR TO I/O 

48C8 

AE40 

0860 

OEDIT LDX #$40 ? XQCB #4 

48CA 

809A48 

0870 

JSR 

CIOCB 

48CD 

A903 

0880 

LDA 

#$03 i OPEN 

48CF 

9D4803 

0890 

STA 

ICCMD, X 

48D8 

A90C 

0300 

LDA 

#18 5 I/O 

48D4 

9D4A03 

0310 

STA 

1 LA X 1 , X 

48D7 

A9FB 

0380 

LDA 

# <EDIT 

48D9 

9D4403 

0*iiJj0 

STA 

ICBAL, X 

48DC 

A948 

0340 

LDA 

# > ED I T 

48DE 

9D4503 

0350 

STA 

ICBAH, X 

48E1 

8056E4 

0360 

JSR 

CIOV 

48E4 

ADB104 

0370 

L D A 

DEF CLE 

48E7 

8DC602 

0380 

STA 

$08C6 5 SCREEN 

48EA 

A900 

038 1 

LDA 

#0 

48EC 

8DC808 

0390 

STA 

$08C8 $ BORDER 

42EF 

ADB804 

0391 

LDA 

DEFCHR 

48F8 

8DC508 

0398 

SI A 

$08C5 

48 F 5 

£07630 

04 1 5 

JSR 

Im 1 NOP 

4 E‘ F 8 

60 

0480 

RTS 


48 F 9 

4B9B 

0430 

KEY B •• BY 

TE 155 

48FB 

459B 

0440 

EDIT « BYTE “E", 155 

- 

: 48FD 

0450 

ROM . a 

■X* 



1 070 

» INCLUDE #D 8 s BUFFERS- 

= 

=48FD 

1 0 RON 

* 



80 ; BUFFER HANDuER FOR SMART 7 



30 ; BUFF N » # 

: OF BUFFERS 

42FD 

ADAE04 

40 NEWBUFF LDA BUPFN 

4300 

C908 

50 

CMP 

#8 

4308 

F03C 

60 

BEQ 

TOMANY 

4304 

AD8904 

70 

LDA 

TQPBUF+1 

4307 

CD8F0 4 

80 

CMP 

MAXTOR •+• 1 

430A 

9034 

90 

npp 

O w w 

TOMANY 

430C 

D 00 A 

0100 

BNE 

BUF OK 

430E 

AD8804 

0110 

L D A 

TOPBUF 

4^ i l 

CD8E04 

0 1 80 

CMP 

MAX ) OP 

4314 

908A 

0130 

BCC 

TOMANY 

4316 

F088 

0140 

BEQ 

TOMANY 

4318 

A 000 

0150 

BUFOK LDY #0 

431 A 

A9E0 

0160 

L.DA 

#$80 

43 1C 

9 ICC 

0170 

STA 

< BUFPTR > , Y 
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BUFFERS* MS 5 


0 


43 IE 

E6CC 

0 1 80 

INC 

BUFPTR 

4320 

D002 

0 1 90 

BNE 

IMZRm 

4vicld 

E6CD 

0200 

INC 

BUFPTR* I 

4 sit 2 4 

2EAE04 

02 1 0 

1HCRND 

INC BUFFN 

4327 

ADAE04 

0220 

LDft 

BUFFN 

432ft 

205143 

0230 

JSR 

B I NDEX 

432D 

A5CC 

0240 

LDft 

BUFPTR 

432F 

998000 

0250 

ST ft 

BUFFER, Y 

4332 

8D8E04 

0260 

ST ft 

MftXTOP 

4335 

A5CD 

0270 

LDft 

BUFPTR*! 

4337 

998100 

0280 

STft 

BUFFER-*- 1, Y ? NEN BOTTOM 

433ft 

BDSF0 4 

0290 

STft 

MftXTOP 4* 1 

433D 

4CAD4D 

0300 

JMP 

MENU 

4340 

20E15A 

03 1 0 

TOMftNY . 

JSR BUZ Z R 

4343 

20DD5A 

0320 

JSR 

CRET 

4346 

nqc. r 

n n/ww 

0340 

LDft 

#92 $ TO MftNY BUFFERS 

4348 

205C5A 

0350 

JSR 

PLINE 

434B 

200C51 

0410 

JSR 

Wft I THEY , 

434E 

4CPD4D 

0420 

JMP 

MENU 



0430 

$BI NDEX 

E N 1 R Y ft == B U F F E R T 0 I N D E X 



0440 

* 

exit y« buff, y index 

4351 

a 

n n 

0450 

B I NDEX ' 

TftX 

4352 

ft000 

0460 

LDY 

#0 

4334 

E000 

0470 

BL.OOP CPX #0 

4356 

F005 

0480 

BEG 

I HUQ^NE. 

4358 

Cft 

0490 

DEX 


4359 

C8 

0500 

INY 

$ 

435ft 

C8 

0510 

I NY 


435B 

D0F7 

0520 

BNE 

BLOGP 

435D 

60 

0530 

INOONE ! 

RTS 


=435E 

0550 

RON . « 

* 



1080 

* I NCLUDE #02 s ED I TOR* M 65 

435E 


10 


RON 

435E 

20C842 

20 EDITOR JSR QEDIT 

4361 

AD8904 

30 EDITLP LDft TOPBUF+1 

4364 

38 

40 

SEC 


4363 

E90 1 

50 

SBC 

#1 

4367 

CD8F04 

60 

CMP 

MftXTOP 4-1 

436ft 

9063 

70 

BCC 

EFULL 

436C 

D00A 

80 

BNE 

NOTFUL 

436E 

AD8804 

90 

LDft 

TOPBUF 

4371 

CD8E04 

0 1 00 

CMP 

MftXTOP 

4374 

9059 

0110 

BCC 

EFULL 

4376 

F057 

0120 

BEQ 

EFULL 

4378 

A905 

0130 

NOTFUL LDft #5 

437A 

91)4203 

0 1 40 

STft 

ICCMD, X 

437D 

ft97F 

0150 

LDft 

#12/ 

437F 

9D4803 

0160 

STft 

ICBLL, X 

4382 

A900 

0170 

LDft 

#0 

4384 

904903 

0180 

STft 

ICBLH, X 

4387 

ft5CC 

0190 

LDft 

BUFPTR 

4389 

904403 

0200 

STft 

ICBftL, X 

438C 

A5CD 

0210 

LDft 

BUFPT R* 1 

438E 

904503 

0220 

S T ft 

ICBftH, X 

4391 

2056E4 

0230 

JSR 

CIOV 

4394 

3020 

0240 

BN I 

EDERR 

4396 

ft3F8 

0250 

LDft 

#*F8 

4398 

8D1FD0 

0260 

STft 

CONSOL 
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D2 s ED .t TOR* M65 


43SB 

A901 

0270 

LDA 

#1 

439 D 

ED1FD0 

0280 

AND 

CONSOL 

43A0 

F014 

0290 

BBQ 

EDERR 

43A2 

BD4803 

0300 

LDA 

ICBLL, X 

43A5 

ia 

0310 

CLC 


43A6 

65CC 

0320 

A D 0 

BUFPTR 

43AB 

85CC 

0330 

ST A 

BUFP7 R 

43 A A 

9002 

0340 

BCC 

NOCARRY 

43AC 

E 6 CD 

0350 

INC 

BUFPTR* 1 



0360 

; PR I N T 

L I NES 

43AE 

A95B 

0370 

NOCARRY 

LDA #91 

43B0 

205C5A 

0380 

JSR 

PL 1 NE 

43B3 

4C6143 

0470 

JMP 

EDITLP 

43B6 

BD4803 

0480 

EDERR LDA ICBLL, X 

4389 

18 

0490 

CLC 


43BA 

65CC 

0500 

ADC 

BUFPTR 

43BC 

85CC 

0510 

ST A 

BUFPT R 

43BE 

9002 

0520 

BCC 

NOCAR 1 

43C0 

E 8 CD 

0530 

INC 

BUF PTR * 1 

43C2 

A5CC 

0540 

N0CAR1 LDA BUFPTR 

43C4 

8D8E04 

0550 

ST A 

MAX TOP 

43C7 

A5CD 

0560 

LDA 

BUFPTR* i 

43C9 

8D8F04 

0570 

ST A 

MAX TOP* 1 

43CC 

4CAD4D 

0580 

JMP 

MENU 

43CF 

20E15A 

0581 

EFULL JSR BUZ ZR 

43D2 

A95A 

0590 

LDA 

#90 

43D4 

805C5A 

0600 

JSR 

PL I NE 

43D7 

£0005 1 

0680 

JSR 

A A I T KEY 

43DA 

4CAD4D 

0690 

JMP 

MENU 

2 

«43DD 

0720 

RON * « 

•* 


1090 * INCLUDE #02: 

10 5 D I BKF » MSS 


DISKF. MS 5 


43DD 


£0 


ROM 

43DD 


30 DSKFNC 


43DD 

20C842 

40 

JSR 

□EDIT 

43E0 

A022 

50 

LDY 

#34 

43E2 

98 

60 RIGS 5 TYA 


A7C7 

T w* U*** *.♦/ 

205C5A 

70 

JSR 

PLINE 

43E6 

C 8 

80 

INY 


43E7 

C0£D 

90 

CPY 

#45 

43E9 

D0F7 

0100 

BNE 

R I C85 

43EB 

£07139 

0110 

JSR 

CLOSEM 

4 3 EE 


0120 

R I K I I 


43EE 

2041 5 A 

0130 

JSR 

GE1 KEY 

43F 1 

C94 1 

0140 

CMP 

# * A 

43F3 

D 0 i 6 

0150 

BNE 

TFORM 

43F5 

CjQpC 

0160 

RDIREC LDA #46 

43F7 

205C5A 

0170 

JSR 

PL I NE 

43FA 

208A44 

0 1 80 

JSR 

BUDNUM 

43FD 

8DF348 

0190 

ST A 

M48+1 

4400 

A930 

0200 

LDA 

#48 

4402 

205C5A 

% 0210 

JSR 

PL I NE 

4405 

209950 

0820 

JSR 

DIRECT 

4408 

4CDD43 

0230 

JMP 

DSKFNC 

440B 

C948 

0840 

TFORM CMP #>B 

440D 

D02B 

0250 

BNE 

TEX IT 

440F 

A92D 

0260 

RFORMAT 

L D A # 4 

4411 

205C5A 

0270 

JSR 

PL I NE 


s 1 DOS 
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D£:D I SKF « M65 


4^+ i 4 

£®8A44 

0£80 

JSR 8 UDNUM 

4417 

8DEF48 

0£90 

ST A M47P+1 

44 i A 

A9£F 

0300 

LDP #47 

44 1 C 

805C5A 

0310 

JSR PL 1 NE 

44 IF 

£0415A 

0380 

JSR GETKEY 

44££ 

C99B 

0330 

CMP #*98 

44£4 

D05F 

0340 

BNE R1KI3 

44£6 

A £30 

0350 

LDX #*30 

44£S 

A9EE 

0360 

LDA # <M47P 

44£A 

9D4403 

0370 

ST A ICBAL, X 

44£D 

A948 

0380 

LDA # > M47P 

4 4 £ F 

9D4503 

0390 

ST A ICBAH, X 

443£ 

A9FE 

0400 

LDA #*FE 

4 4 £« *+ 

9D4203 

0410 

ST A 1CCGM, X 

4437 

4CA544 

04£0 

JMP HIP? 

44 3 A 

C947 

0430 

TEX IT CMP #»G sH 

443C 

D003 

0440 

BNE TRENA 

443E 

4CAD4D 

0450 

JMP MENU 

4441 

0943 

0460 

TRENA CMP # ? C 

4443 

D 00 D 

0470 

BNE! TDEL 

4445 

A931 

0480 

RENAME LDA #49 

4447 

£®5C5A 

0490 

JSR PL I NE 

444A 

£04356 

0500 

JSR F PROMT 

444D 

A9£® 

0510 

LDA # * £ 0 

444F 

409644 

05£0 

JMP DISKFUN 

4452 

0944 

0530 

TDEL CMP D 

4454 

D 00 D 

0540 

BNE TLCK 

4456 

A93£ 

0550 

RDELT LDA #5® 

4458 

£05C5A 

0560 

JSR PLINE 

445B 

£04356 

0570 

JSR F PROMT 

445E 

A9£ 1 

0580 

LDA #*£ 1 

4460 

409644 

0590 

JMP DISKFUN 

4463 

0945 

0600 

TLCK CMP #*E 

4465 

D 00 D 

0610 

BNE TUNLK 

4467 

A933 

06£0 

RLCK LDA #51 

4469 

£®5C5A 

0630 

JSR PL1HE 

4460 

£04356 

0640 

JSR F PROMT 

446F 

A9£3 

0650 

LDA # # £ vjip 

4471 

409644 

0660 

JMP DISKFUN 

44 Y 4 

0946 

0670 

TUNLK CMP #*F 

4476 

D 00 D 

0680 

BNE RIKI3 

4478 

A934 

0690 

RNLCK LDA #5£ 

44 7 A 

£®5C5A 

0700 

JSR PLINE 

4470 

£04356 

07 1 0 

JSR F PROMT 

4480 

A9£4 

07£® 

L~ Dh # * £ 4 

448£ 

409644 

0730 

JMP DISKFUN 

4485 

0948 

0740 

R I K 1 3 CMP #’ H 5 E X I 7 T 0 DOS 

HOT 

*0000 

0741 

. IF EX I TTODOS— 1 



0750 

BNE ZRICA 



0 760 

7SUITA LDA OLDMEMLO 



0770 

STA *®£E7 



0780 

LDA 0LDMEML04-1 



079® 

STA *0£E8 



0800 

LDA 0 L DDL 



0810 

STA *®£3® 



08 £0 

LDA 0LDDL*1 



083® 

SI A * 0 £ 3 1 



0840 

LDA OLDDOSVEC 


PAGE 

51 

0850 

ST A DQSVEC 

D 2 : D I 

SKF. M65 



0860 

LI) A GLDDOSVEC* 1 





0870 

ST A DQSVEC * 1 





0880 

LDA 0LDD0SINI 





0890 

ST A DOS INI 





0900 

ST A SETOUT+1 





0910 

LDA GLDDOS I N I + 1 





0920 

ST A DOSINI+1 





0930 

ST A GET0UT*2 





0940 

GET OUT . BYTE *20,0,0 5 JSR DOS I N 1 





0950 

JMP (DQSVEC) 





095 1 

-END IF 



4487 

4CDD43 

0960 

ZRICA JMP DSKFNC 



448A 

204 15A 

0970 

BUDNUM JSR G2TKEY 



448D 

C93 1 

0980 

CMP #*3 1 



448F 

30F9 

0990 

BMI GODNUM 



4491 

C939 

1 000 

CMP #*39 



4493 

10F5 

1010 

BPL GUDNUM 



4495 

60 

1020 

RTS 



4496 

A230 

1 030 

DISKFUN LDX #*30 



4498 

9D4203 

1040 

ST A ICCOM, X 



4498 

A 9 96 

1 050 

LDA # <BUFF 



449D 

9D4403 

1 060 

ST A ICBAL, X 



4 4 0 

A900 

1 070 

LDA # > BUFF 



44A2 

904503 

1080 

ST A ICBAH, X 



44A5 

205624 

1 090 

HIP? JSR CIGV 



44A8 

3003 

1 1 00 

BMI WHOOP Z 



4 4 A A 

4CDD43 

1110 

JMP DSKFNC 



44AD 

£02251 

1120 

WHOOP Z JSR DERROR 



4480 

200C51 

1130 

JSR WAITKEY 



4483 

4CDD43 

1 140 

JMP DSKFNC 



= 

: 4486 

1 1 50 

ROM « = * 





1 1 00 
10 5 

» I N C L U D E # D 2 s C L 0 C K - M 6 5 





20 ; CLOCK* 1*165 





30 5 




— »i 

=0006 

40 VBLKI * 6 




: 0 0 0 7 

50 VBLKD * 7 



»««i 

MM 

: 0224 

60 CVVBLKD = *0££4 



— 

=0222 

70 CWBLKI = *0£££ 





80 5 

- 



44E<6 


90 

ROM 





0 1 00 

n 

n 



4486 

00 

0110 

YSTAX - BYTE 0 



4487 

00 

0 1 20 

FRAME - BYTE 0 



4488 

00 

0130 

SEC . BYTE 0 



4489 

00 

0140 

HRS - BYTE 0 



44BA 

00 

0150 

MIN .BYTE 0 



4488 

0000 

0160 

CSVBKI . WORD 0 



44BD 

0000 

0 1 70 

CSVBK - WORD 0 





0180 

m 

? 



ss 

; 0 0 0 4 

0190 

. LOCAL 





0200 

■ 



44BF 


0210 

KLOK 



44BF 

EEB744 

0220 

INC FRAME 



44C2 

A200 

0230 

LDX #0 



44C4 

ADB744 

0240 

LDA FRAME 



44C 7 

C93C 

0250 

CMP #60 




44C9 

308P 

0260 

44CB 

8EB744 

0870 

44CE 

EEB844 

0880 

44 D 1 

PDB844 

0890 

*+ 4 D 4 

C93C 

0300 

44D6 

30 ID 

03 1 0 

44DS 

8EB844 

0380 

44DB 

EEBP44 

0330 

44DE 

PDBP44 

0340 

44E1 

w J w w 

0350 

44E3 

3010 

0360 

44E5 

8EBP44 

0370 

44£8 

EEB944 

0380 

44EB 

PDB344 

0390 

44EE 

C9 1 a 

0400 

44F0 

D003 

04 1 0 

44F2 

8EB944 

0480 

44F5 

202E45 

0430 

44F8 

6CBD44 

0440 

0450 

44FB 


0460 

44FB 

PD8408 

0470 

44FE 

8DBD44 

0480 

4501 

PD8508 

0490 

4504 

8DBE44 

0500 

4507 

P0BF 

0510 

4509 

P244 

0580 

450B 

PS 07 

0530 

450D 

805CE4 

0540 

4510 

60 

0550 

0560 

451 1 


0570 

4511 

P900 

0580 

4513 

8DB944 

0530 

4516 

8DBP44 

0600 

4519 

8DB844 

0610 

45 1C 

8DB744 

0680 

45 IF 

4CFB44 

0630 

0640 

4522 


0650 

4528 

PEBE44 

0660 

4585 

PCBD44 

0670 

4588 

P907 

0680 

452P 

205CE4 

0690 

458D 

60 

0700 

0710 

458E 


0780 

458E 

PS ID 

0730 

4530 

8DB644 

0740 

4533 

PDB944 

0750 

4536 

206145 

0760 

4533 

805545 

0770 

453C 

PDBP44 

0780 

453F 

206145 

0730 

4548 

805545 

0800 

4545 

PDB844 

0810 

4548 

806 1 45 

0880 

454B 

205545 

0830 


BM I GONE 

? C C A S 1 ’ X F R P M E 
INC SEC 
L DP SEC 
CMP #60 
BN I GONE 
SIX SEC 
INC MIN 
LDP MIN 
CMP #60 
BMI GONE 
SIX MIN 
INC HRS 
LDP HRS 

?NDXP CMP #84 
BNE GONE 
ST X HRS 

GONE JSR DOCLK 
JMP (CSVBK) 

m 

* 

SET I NT 

LDP CWBLKD 
STP CSVBK 
LDP CVVBLKD+1 
STP CSVBK-*- 1 
LDY # <KLOK 
LDX # >KLOK 
LDP #VBLKD 
JSR BETVBV 
RTS 

* 

CLOCKON 

LDP #0 
STP HRS 
STP MIN 
STP SEC 
STP FRAME 
JMP SET I NT 

u 

CLOCKOFF 

LDX CSVBK-*- 1 
LDY CSVBK 
LDP # V B L K D 
JSR BETVBV 
RTS 

9 

DOCLK 

LDP #83 
STP YS I PX 
LDP HRS 
JSR CONVCL 
JSR DOCOLON 
LDP MIN 
JSR CONVCL 
JBR DOCOLON 
LDP SEC 
JSR CONVCL 
JSR DOCOLON 
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D 8 s CLOCK, 


454E 

ADB744 

0840 

LDA FRAME 

4551 

£06145 

0850 

JSR CONVCL 

4554 

60 

0860 

RTS 



0870 5 


4555 


0680 DOCDLON 

4555 

A99A 

0890 

LDA # ? 

4557 

ACB644 

0900 

LDY YSTAX 

4 55 A 

998430 

09 1 0 

STA WXNDA1, Y 

4550 

EEB644 

0980 

INC YSTAX 

4560 

60 

0930 

RTS 



0940 5 


4561 


0950 CONVCL 

4561 

A 0FF 

0960 

LDY #$FF 

4563 

38 

0970 

SEC 

4564 

CB 

0980 LPl 

INY 

4565 

AA 

0990 

TAX 

4566 

E90A 

1000 

SBC #$0 A 

4568 

B0FA 

1010 

BCS LPl 

456A 

98 

1 080 

TYA 

456B 

ACB644 

1030 

LDY YSTAX 

456E 

4990 

1 040 

EOR #$90 

4570 

998430 

1050 

STA W INDA 1 , Y 

4573 

C 8 

1060 

I N Y 

4574 

8 A 

1070 

TXA 

4575 

4990 

1080 

EOR #$90 

4577 

998430 

1 090 

STA WXIMDAI , Y 

457 A 

CB 

i 1 00 

INY 

457B 

8CB644 

1 1 10 

STY YSTAX 

457E 

60 

1180 

RTS 



1 1 30 s 


•m 

"-457F 

1140 ROM 

a TV 



1110 

• INCLUDE #08 



10 5 MESS. 

M65 



80 s 




3 0 , 3 T A R T OF MESSAGES 

457F 


40 

ROM 

457 F 

00 

50 M0 

■ BYTE 0 

4580 

A0 

60 Ml 

. BYTE “ ” 

4581 

7D434F50 

70 M 8 

. BYTE $70, ”<0 

4585 

59584947 



4589 

48548088 



458D 

43893139 



4591 

38368053 



4595 

55505841 



4599 

80434F58 



4590 

504F5841 



45 A 1 

54494FCE 



45A5 

53404158 

80 M3 

. BYTE H SMART 

45 A 9 

54805445 



45AD 

584D494E 



45B 1 

4 14C8033 



45B5 

30308F31 



45B9 

%i830w>0c!0 



45BD 

58455680 



45C1 

388EB8 



45C4 

A0 

90 M4 

- BYTE M " 

45C5 

7F4 18980 

0100 M5 

.BYTE $7F, "A 

45C9 

4449534B 




lA-i $oJ 

(H3 ) 1 986 SUPRA CORPORA I X ON ,4 


C 


u 
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Dd s MESS.. M65 

45CD 

8046554E 





• 

4501 

4354494F 






4505 

4E804D45 






45D9 

4ED5 






45DB 

7F488980 

0110 

MS 

- BYTE 

*7F, ”B> 

MODEM <-> DISK DIRECT 14 

45DF 

4D4F4445 






45E3 

4D803C8D 






45E7 

3E804449 






45EB 

534B8044 






45EF 

49584543 






45F3 

04 






45F4 

7F438980 

0180 

M7 

. BYTE 

*7F, 44 C> 

COPY BUF FER TO DEV 1 CE 14 

45F8 

434F5059 






45 FC 

80485546 






46®0 

46455880 






4804 

544F8044 






4608 

45564943 






460C 

C5 






4600 

7F448980 

0 1 30 

ms 

- BYTE 

*>7F, n D) 

DELETE AlL BUFFERS 14 

46 1 1 

44454C45 






4615 

54458041 






4619 

4C4C8048 






4610 

55464645 






46c: 1 

5803 






4683 

7F458980 

0140 

MS 

. BYTE 

*7F, **E> 

CREATE NEW BUFFER 4 * 

4687 

43584541 






4S88 

5445804E 






468F 

45578048 






4633 

55464645 






4637 

08 






4638 

7 P 468980 

0 1 50 

Ml 0 

. BYTE 

*7F, 44 F> 

F ULL / HALF DUPLE X f * 

463C 

46554C4C 






4640 

8F48414C 






4644 

46804455 






4648 

504C45O8 






464C 

7 F 48 8980 

0160 

Mil 

- BYTE 

*7F, “HD 

A SC 1 1 / AT ABC I 1 T R ANSL AT I ON 

4650 

41534349 






4654 

498F4 1 54 






4658 

41534349 






465C 

49805458 






4660 

414E534C 






4664 

4 1 54494F 






4668 

CE 






4669 

7F498980 

0 1 70 

Ml 8 

■t BYTE 

*7F, “ 1 ) 

MO / X -MODEM PROTOCOL " 

4660 

4E4F8F58 






4671 

8D4D4F44 






4675 

45408050 






4679 

584 F 54 4 F 






4670 

434FCC 






4680 

7F4P18980 

0180 

Ml 3 

. BYTE 

*7F, 11 J) 

*38/40/64/ 80 COLUMNS E ‘ 

4684 

33388F3 4 






4688 

308F3634 ’ 






468C 

8F383080 






4690 

434F4C55 






4694 

4D4E53A0 






4698 

7F4B8980 

0190 

Ml 4 

. BYTE 

$7F, M K> 

REGULA R / QU I CK KE YBO A RD 43 

469C 

58454755 






46P0 

4C41588F 








Pft BE 

55 






DE s MESS- MS 5 

46ft4 

51554943 






• 

46(48 

4BE04B45 







46ftC 

594E4F41 







46B0 

5EC4 






* 

46BE 

7F4CESE0 

0E00 

Ml 5 

. BYTE 

*7F 5 

4 ) 

•W.m r 

LGftD BUFFER FROM DEVICE 11 

46B6 

4C4F4144 







46Bft 

E04E5546 







46BE 

46455EE0 







46CE 

465E4F4D 







46C6 

E0444556 







4 6 C Pi 

4943C5 







46CD 

7F4DE9E0 

0E 1 0 

M 1 6 

- B YTE 

* 7F , 

" M ) 

D I AL /ANSWER FUNG T IONS" 

46D 1 

44494 14C 







461)5 

EF414E53 







46D9 

57455EE0 







46DD 

46554E43 







46E I 

54494F4E 







46E5 

D3 







46 E 6 

7F50S9S0 

0EE0 

M 1 7 

. BYTE 

* 7F ; 

“ p ) 

NO/ ODD / EVEN PA R I T Y 11 

46Eft 

4E4FEF4F 







46EE 

4444EF45 







46FE 

C*) T » Cm I»HI Hit 







46F6 

50415E49 







46FA 

54D9 







46 FC 

7F54E9E0 

0 c! 30 

Mia 

- BYTE 

*7F, 

,J T ) 

TERMINAL MODE “ 

47©0 

54455E4D 







4704 

494E414C 







4708 

470C 

E04D4F44 

C5 






jZHoo MfluO 

470D 

7F56E9E0 

0S40 

MIS 

* BYTE! 

*7F, 

“V) 

300/ 1 E00 BAUD “ 

4711 

333030EF 







4715 

313E3030 







4719 

E04E4155 







47 ID 

C4 







47 IE 

434F4E54 

0E50 

ME8 

. BYTE 

“CONTROL 

C 3 ® COLOR CONTROL"*!' 588 T I MER “ 

4 7 EE 

5E4F4CED 







47E6 

433D434F 







4 7 Eft 

4C4F5EE0 







47EE 

20434F4E 







473E 

545E4F4C 







4736 

ED543D54 







473ft 

494D45DE 







473E 

ft0 

0E60 

ME 1 

» BYTE 

n i> 



473F 

7F41E9E0 

0E70 

MSS 

„ BYTE 

%7 F, 

“ft) 

AUTOANSWER OFF/ ON" 

4743 

41 5554 4F 







4747 

414E5357 







4 7 4B 

455EE04F 






• 

474F 

4646EF4F 







4753 

CE 







4754 

7F4EE9E0 

0 c! 80 

ME 3 

. BYTE 

7* 

"B> 

ft U T O R E D I ft L 0 F F / ON “ 

4758 

4 155544F 







475C 

ED5E4544 







4760 

49414CE0 







4764 

4F4646EF 







4768 

4FCE 







476ft 

7F43E9E0 

0E90 

ME 4 

» BYTE 

*7F, 

“ C > 

ft u tod i ftL number “ 

476E 

4 1 55544F 







477E 

44494 140 









P3GE 

56 










I>8 jj MESS* M65 

4776 

804E554D 





47 7 A 

4845D8 





477D 

7F448980 

♦ 

0300 

M85 

m B Y T E 

$> 7F ? ” D> CH3N0E NUMBER ” 

4781 

43484 14E 





4785 

4745804E 





4789 

554D4845 





478D 

D8 





478E 

7F 4 58*980 

0310 

M8S 

. BYTE 

$ 7F‘ 9 ” E ) L03D NUMBE RS / NEW P30E ” 

479E 

4C4F4144 





4796 

804E554D 





4793 

48455853 





479E 

8F4E4557 





4738 

£0504147 





4736 

C5 





47(37 

7F468980 

0380 

ha ? 

» BY TE 

*7F, ”F) SAVE NUMBERS/ THIS PAGE “ 

47(38 

534 1 5645 





473F 

804E554D 





4783 

48455853 





4787 

8F 544849 





47B8 

53805041 





47BF 

47C5 





47C1 

7F478980 

0 5 0 

M£8 

» BYTE 

7 F , i! 0) EXIT TO M3 IN MENU 4 * 

47C5 

45584954 





47C9 

80544F80 





47 CD 

4D41494E 





47D1 

804D454E 





47D5 

D5 





47D6 

30 

0340 

M89 

. BYTE 

1) II 

4707 

43484F49 

0350 

M30 

. BYTE 

” CHOICE?” 

47DB 

4345BF 





47DE 

4E554D48 

0360 

M3 1 

. BYTE 

■'NUMBER?'* 

47E8 

4558BF 





47E5 

4E455780 

0370 

M38 

« BYTE 

“NEW NUMBER? '* 

47E9 

4E554D48 





47ED 

4558BF 





47F0 

83838048 

0380 

M33 

. B Y r a 

"•** BAUD MISMATCH-RESET BAUD *-•*“ 

47F4 

41554480 




’ 

47F8 

4D49534D 





47FC 

4 1 544vi48 





4800 

— !•/ W» Iimii 1m/ Vm * r Um 





4804 

45548048 





4808 

4 1 554480 





480C 

8333 




- 

480E 

4449534B 

0390 

M34 

. BYTE 

"DISK FUNCTIONS MENU (DRIVES 1-8) " 

4816 

8046554E 





48 1 6 

4354494F 





48 1 3 

4E53804D 





48 IE 

454E5580 





4888 

88445849 





488*6 

564 5538*0 





488*3 

318D3S39 





488E 

30 

0400 

M35 

- BYTE 

It 11 

488F 

7F4 18980 

0410 

M36 

. BY1 E 

#7F, ”3) DISK DIRECTORY” 

4833 

4449534B 





4837 

80444958 





483B 

4543544F 





483F 

58D9 





4841 

7F 488980 

0420 

M3 7 

„ BYTE 

*7F, ”B) FQRM3T DISK” 
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02 a toEBS* to65 

4845 

464F524D 



4849 

41548044 



484D 

4953CB 



4850 

7F432920 

0430 

to 38 . BYTE *7F, ”C> RENAtoE FILE 11 

4854 

52454E4 1 



4858 

4D458046 


» 

485C 

494CC5 



485F 

7F442920 . 

0 4 4 0 

to39 -BYTE *7F, M D> DELETE FILE 14 

4863 

44454C45 



4867 

54452046 



4868 

494CC5 



4 8 BE 

7F452920 

0450 

M40 ■ BYTE * 7F , n E) LOCK F I LE 14 

4872 

4C4F434B 



4876 

2046494C 


• 

487A 

C5 



4878 

7F46292® 

0460 

to 4 1 . BYTE * 7F, 44 F ) UNLOCK FILE' 1 

487F 

554E4C4F 



4883 

434B2046 



4887 

494CC5 



488A 

7F472920 

0470 

to42 . BYTE *7F f ”6) EXIT TO to A I N MENU” 

48 BE 

45584954 



4892 

E0544F20 



4896 

4D41494E 



489A 

E04D454E 



489E 

05 




=0000 

0480 

. IF EXITT0D0S«1 



0490 

to43 - BYTE *7F, 11 H) EXIT TO DOS 81 



0500 

ELSE 

489F 

A0 

0510 

to43 * BYTE 41 44 



0520 

» END I F 

48A0 

43484F49 

0530 

to 4 4 .BYTE “CHOICE? 11 

43 A4 

4345BF 



48A7 

5B464F52 

0540 

to45 * BYTE “ CFORMA T J DR I VE < 1 -8 ) ? ” 

48AB 

40415450 



48AF 

£0445249 



48B3 

56458831 


* 

48B7 

2D3S29BF 



48BB 

5B444952 

0550 

M46 . BYTE ■* CD I RECTOR Y3 OF DRIVE ( l-6> .?“ 

48BF 

4543544F 



46C3 

52595020 



48C7 

4F462044 



48CB 

52495645 



48CF 

£8312038 



4803 

£9 BP" 



4805 

50524553 

0560 

M47 .BYTE "PRESS < RETURN) TO FORMAT 11 

4809 

53£03C5£ 



4800 

45545552 



4BE1 

4E3E2054 



48E5 

4F20464F 



48E9 

52404154 



48ED 

20 



48EE 

44313AA0 

0570 

M47P .BYTE "D1 : " 

48F2 

44313A2A 

0580 

M48 .BYTE "Dls*. * » 

48F6 

2E2AA0 



48F9 

5B52454E 

0590 

M49 .BYTE " C RENAMED " 

48FD 

4 1 4D45DD 



4901 

5B44454C 

0600 

M50 .BYTE ” C DELETE 3 " 

4905 

45544500 
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• 

D2sME3S» MS 5 

4309 

5B4C4F43 

06 1 0 

MSI 

. BYTE 

11 CLOCK 3 H 

490D 

4BDD 





490F 

5B554E4C 

0680 

MSS 

« BYTE 

38 t UNLOCK 1 31 

4313 

4F434BDD 





4917 

44454C45 

0630 

M53 

. BYTE 

” DELETE BUFFERS < Y / N > ? " 

49 IB 

54458048 





49 1 F 

55464645 





4983 

58538088 

• 




4987 

w ♦»/ Imm 1 1 it«i« i>m> *Jr 





498B 

BF 





498C 

80485546 

0640 

M54 

- BYTE 

" BUFFERS used 33 

4330 

46455853 





A O 7; 4 
r j wT 

O i7| kt.\ cr *3 a 

iZ. »<!.' xJ wJ vJ O ‘‘T % J 





4936 

C4 





4939 

48554646 

0650 

M55 

■ BYTE 

"BUFFER NOT CREATED” 

4330 

4558804E 





4941 

4 F 54804 3 





4945 

58454154 





4949 

45C4 





494B 

48*554646 

0660 

M56 

* BYTE 

"BUFFER # TO COPY? " 

434F 

45588083 





4953 

80544F80 





4957 

434F5053 





495B 

BF 




• 

495C 

8A8A4D4F 

0670 

M57 

■ BYTE 

" **MQDEM MAK** " 

4960 

44454D80 





4964 

4E414B8A 





4968 

AA 





4969 

43484F49 

0680 

M58 

- BYTE 

31 CHOICE?" 

496D 

4345BF 





4970 

50584553 

0690 

M59 

. BYTE 

"PRES S < R E T U R N > T 0 C 0 N T I N U E ' 3 

4974 

53803C58 





4978 

45545558 





49 7 C 

4E3E8054 





4980 

4F80434F 





4384 

4E54434E 





4988 

nr cr ^ cr 





49 8 A 

48554646 

0700 

M60 

. BYTE 

"BUFFER COPY READY" 

438E 

45588043 





4998 

4F505980 





4936 

58454144 





499 A 

D9 





499B 

55534580 

0710 

MSI 

- BYTE 

"USE < OPTION) TO START/STOP SAVE" 

439F 

3C4F5054 





4 3 A3 

494F4E3E 





49A7 

80544F80 





49AB 

53544158 





43AF 

548F5354 





49B3 

4F508053 





49B7 

4156G5 





49BA 

4C4F4144 

0780 

M68 

. BYTE 

"LOAD BUFFER FROM A DEVICE* " 

4 9 BE 

80485546 





49C8 

46455820 





49C6 

46584F4D 





49CA 

804 1 8044 





49CE 

45564943 





4908 

45AE 




• 

4304 

2A2A4255 

0730 

M63 

* BYTE 

11 ♦♦BUFFER FULL** u 
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08 s MESS. M65 

4908 

46464552 






49 DC 

80465540 






49E0 

4C8AAA 






49E3 

8A8A5445 

0740 

M64 

. BYTE 

M **T 

ERMINAL MODE**” 

49 E 7 

584D494E 






49EB 

414C804D 






49EF 

4F 44458A 






49F3 

AA 






49F4 

7D434F50 

0750 

1*165 

. BYTE 

*70, 

“COPY BUFFER TO A DEVICE. " 

49F8 

59804855 






49FC 

46464558 






4A00 

80544F80 






4A04 

41804445 






4A08 

56494345 






4A0C 

AE 






4A0D 

4C45474 1 

0760 

M66 

• BYTE 

" LEGAL DEVICES ARE 5 " 

4A 1 i 

40804445 






4A15 

56494345 






4 A 1 9 

53804158 






4A1D 

45BA 


* 




4A1F 

A0 

0770 

1*167 

. BYTE 

a ii 


4A80 

7F46494C 

0780 

1*168 

„ BYTE 

*7F, 

“FILENAME DEVICE 1 * 

4A24 

454E414D 






4A88 

45808080 






4A2C 

44455649 






4A30 

4305 






4A32 

A0 

0790 

1*169 

. BYTE 

Si It 


4A33 

7F433A28 

0800 

1*170 

m BYTE 

*7 F, 

"Cs (SHORT) - CASSETTE " 

4A37 

53484F58 






4A3B 

54298080 

• 





4A3F 

8D80434 1 






A4%i 

53534554 






4A47 

5405 






4A49 

7F443A66 

08 1 0 

1*171 

. BYTE 

* 7 F , 

"Ds filename - DISK 11 

4A4D 

696C656E 






4A51 

6 1 6D6520 






4A55 

20804443 






4 A 59 

53CB 






4A5B 

7F4D3A80 

0880 

{*178 

. BYTE 

* 7F , 

“Ms - MODEM" 

4A5F 

80808080 






4A63 

80808020 






4A67 

2D804D4F 






4A6B 

444500 






4A6E 

7F533A80 

0830 

1*173 

n BYTE 

*7F, 

"Ss - SCREEN" 

4A78 

80202080 






4A76 

80802080 






4A7A 

£0205343 






4 ATE 

524545CE 






4A88 

7F503A80 

0840 

M 74 

RYTF 

*7F, 

"Ps - PRINTER" 

4A86 

80802080 






4A8A 

20208080 






4A8E 

80805058 






4A92 

494E5445 






4A96 

08 






4A97 

7F453A80 

0850 

1*175 

b BYTE 

*7F, 

"Es - SCREEN EDITOR" 

4A9B 

20208080 






4 ASF 

£0802080 






4AA3 

20805343 
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08 a MESS- M65 

40A7 

5E45454E 





4AAB 

80454449 





4AAF 

544FDE 





4AB8 

54464953 

0860 

M 76 

» BYTE 

"THIS COPIES TO PND FROM THE DISK" 

4AB6 

E0434F50 





4ABA 

494553E0 





4ABE 

544F2041 





4AC8 

4E44E046 





4AC6 

584F4D80 





4 ACA 

544645E0 





4ACE 

444953CB 





4AD8 

44495E45 

0870 

M77 

. BYTE 

"DIRECTLY WITHOUT BUFFERING DPT A. " 

4AD6 

43544C59 




• 

4ADA 

80574954 





4ADE 

484F5554 





4AE2 

8048554b 





4 AE6 

46455849 





4AEA 

4E472044 





4AEE 

41544 1 AE 





4AF2 

88584D4F 

088» 

M78 

• BYTE 

"(XMODEM ONLY!)" 

4AF S 

44454080 





4AFA 

4F4E4C59 





4AFE 

8 1 A9 





4000 

m 

0890 

M79 

. BYTE 

tt a 

4B01 

IF 3 18980 

0900 

M80 

- BYTE 

$7F, ”1) MODEM -> DISK DIRECT 11 

4305 

4D4F4445 





4B0S 

4D808D3E 





4 B0D 

80444953 





401 1 

4B804449 





4B15 

58454304 





4019 

7C7 o O Q O ifl 
/ v vJjC. 77 s~ vJ 

0910 

r*i8i 

. BYTE 

$>7F, "£) DISK -> MODEM DIRECT" 

4B1D 

4449534B 





4B81 

208D3E80 





4 BE* 5 

4D4F4445 





4BE9 

40804449 





4BED 

5S4543D4 





4B31 

A0 

09£0 

M8£ 

*? B YTE 

if II 

4B3E 

43484F49 

0930 

MB3 

„ BYTE 

“CHOICE? “ 

4036 

4345BF 





4B39 

53544 i 58 

0940 

M84 

■ BYTE 

“STARTING XMODEM DOWNLOAD “ 

4B3D 

54494E47 





4B41 

80584 04 F 





4B45 

44454080 





4B49 

444F574E 





4B4D 

4C4F41C4 





4B51 

454E4480 

0950 

M 85 

. BYTE 

“END OF XMODEM TRANSFER “ 

4B55 

4F 468058 





4B53 

4D4F4445 





4B5D 

40805458 





4B61 

414E5346 





4B65 

4508 





4B67 

46415441 

0960 

M86 

BYTE 

* * F A T A L ERRGR—XMQDE M T R ANSFE R A B U R T E D 1 1 

4B6B 

4C204552 





4B6F 

584F58EO 





4B73 

584D4F44 





4B77 

454DE054 





4B7B 

58414E53 





4B7F 

46455880 
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D2 5 MESS- M65 


40 1 3 


4032 


41424F52 

5445C4 

53544152 

54494E47 

80584D4F 

44454D20 

55504C4F 

4104 

53415645 

204FCE 

53415645 

204F46C6 

2A8A20 45 

4449544F 

52204655 

4C4 C202A 

AA 

3D3D3D3D 

3D3D3D3D 

3 D3D3D3D 

3D3D3D3D 

3D3D3D3D 

3D3D3D3D 

3D3D3D3D 

3D3D3D3D 

3D3DBD 

8A2A204F 

5554204F 

4 6 c! 0 4 E 5 5 

46464552 

5 3202AAA 

20A0 

9B49443A 

46494C45 

4E4 1 4D45 

3F80 

7D£0 

9B£0 

£0425954 

45532055 

53454420 

20 

20425954 

4553204C 

4546549B 

FD9B2A8A 

2A804558 

524F5220 

2D20 

433A9B 

443R5048 

4F4E453 1 

2E444 154 

9B 

*+ 4 3 A 4 4 5 2 
49564552 
2E36349B 
443A4458 


0970 M87 - BYTE "STARTING XMODEM UPLOAD*' 


0960 Mdd -BYTE "SAVE ON" 


0990 ms -BYTE "SAVE OFF 


1000 M90 -BYTE "** EDITOR FULL **" 


1010 M91 -BYTE 


1020 M92 . BYTE "** OUT OF BUFFERS **" 


1030 M93 -BYTE " 

1 040 MF I LEN . BYTE 155, " IDsFI LENAME ? " 


1050 MBAUD -BYTE *7D, " 11 
1060 MBAUD 1 -BYTE 155," “ 

1070 BMES1 -BYTE " BYTES USED 


1080 BMEQ2 . BYTE " BYTES LEFT", 155 


1090 MERROR - BYTE *FD, 155, "*** ERROR 


1100 MCASS » BYTE "Cs ", 155 

1110 MDISK - BYTE " D s PHONE 1 - DAT ", 1 55 


1120 MX 64 -BYTE 


DRIVER- 64", 3>9B 


1130 MX 80 -BYTE "Ds DRIVER- 80", $9B 
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4C52 

4C56 

4C5A 

4C5E 

4C62 

4C66 

4C69 

4C6D 

4C6F 

4C73 

4C77 

4C7B 

4C7F 

4C83 


49564552 

2E38309B 

20465245 

4520424C 

4F434B53 

202020 

41012800 

0000 

9B9B3E3E 

5452414E 

53464552 

49424720 

424C4F43 

4B2320 

: 4C86 

: 0 0 0 0 


1140 BMES3 .BYTE “ FREE BLOCKS 


.15 


1 1 50 DANUM - BYTE $4 1 , $0 1 , $28, $00, $00, $00 
1160 XMES3 .BYTE 155, 155, "> > TRANSFER I N0 BLOCK# 


1 170 
1 120 
1130 
1140 


IF RAM) $057 E 
ERROR “RAM TO BIG 1 ' 
END IF 


4C86 


1150 

W - 

rT 

ROM 



1 160 

a 




1170 

; DOES THIS ONCE ON 



1 180 

a 

J 


4C86 


1 190 

START 


4C86 

200435 

1200 

JSR 

RINTT. ST 5 I 

4C89 

20C842 

1210 

JSR 

OED I T 

4C8C 

A901 

1220 

LDA 

#1 

4C8E 

8509 

1230 

ST ft 

$09 :DI 

4C90 

A 9 00 

1240 

LDA 

#0 

4C92 

8D4402 

1250 

ST A 

$024 *+ S CL 

4C95 

ADE502 

1260 

LDA 

MEM TOP 

4C9S 

8D8304 

1270 

ST A 

OLDMEMTOP 

4C9B 

ADE602 

1280 

LDA 

MEMTOP+ 1 

4C9E 

8D8404 

1 290 

ST A 

OLD MEM TO P+1 

4CA1 

AS 20 

1300 

LDA 

#$20 

4CA3 

8DA004 

13i0 

ST A 

INIT 

4CA6 

A50C 

1320 

LDA 

DOS INI 

4CA8 

8DA104 

1330 

ST A 

I N I T + 1 

4CAB 

A50D 

1340 

LDA 

DOS I N I + 1 

4CAD 

8DA204 

1350 

ST A 

INIT +2 

4CB0 

A 9 20 

1 360 

LDA 

#$20 

4CB2 

8DA304 

1370 

ST A 

I N I T+3 

4CB5 

A9D8 

1380 

LDA 

# <STERM 

4CB7 

SDA404 

1390 

ST ft 

INIT+4 

4CBA 

A94C 

1400 

LDA 

# > STERM 

4CBC 

8DA504 

1410 

ST A 

INI T+5 

4 CBF 

A960 

1420 

LDA 

#$60 

4CC1 

8DA604 

1430 

ST A 

1 N I T +6 

4CC4 

A200 

1440 

LDX 

#0 

4CC6 

8E4402 

1450 

ST X 

$0244 

4CC9 

E 8 

1460 

I NX 


4CCA 

8609 

1470 

ST X 

$09 

4CCC 

ADE502 

1480 

LDA 

MEM TOP 

4 CCF 

8DB304 

1490 

ST A 

DM TOP 

4CD2 

ADE602 

1 500 

LDA 

MEMTOP+1 

4CD5 

8DB404 

1510 

ST A 

OMTOP+1 


1520 

1530 

1540 


a 

i 


5 HERE ON RESET 
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4CD8 

1550 

S TER hi 


4CD8 A9A0 

1560 

L 0 A 4$ ( £ N i 1 


4CDA 850C 

1570 

ST A DOS INI 


4CDC A904 

1580 

LDft # > INI T 


4CDE 8500 

1 590 

ST ft DOS IN I + 1 


4CE0 A9D8 

1600 

LDA # < STERN 


4CE8 850A 

1610 

ST A DOSVEC 


4CE4 A94C 

1 680 

LDA # > STERM 


4CE6 8509 

1 630 

ST A DGSVEOl 


4CE8 A9F8 

1640 

LDA # <EN0PR 


4CEA 8DE7©£ 

1650 

ST A S08E 7 


4CED A 95A 

1 660 

LDA # >EUDPH 


4CEF 8DE80E 

1670 

ST A S08E8 


4CF8 A90A 

1 680 

LDft #$0ft 


4CF 4 8DB204 

1690 

ST A DEFCHR 


4CF7 8DC50E 

1700 

STA *08C5 


4CFA A931 

1 7 1 0 

LDA #*31 


4CFC 8D3C4C 

1 780 

STA MD I SK+7 


4CFF A90A 

1 730 

LDA #10 


4001 8DB604 

1 740 

STA KEYF8 


4004 A908 

1750 

LDA #8 


4006 8558 

1760 

STA *38 


4008 A980 

1770 

LDft #3£ s ftLWftVS NO TRftN 


400 A 8D8F38 

1780 

STA TRAN 


4D0D A900 

1790 

LDA #0 


4D0F 808704 

1800 

STA BDFLB 


401 a 8DB504 

1810 

STh KEYF 


4015 8OB004 

1880 

STA QD IAL 


4D18 SDB104 

1830 

STA DEFCLR 


4D1B 8DA63S 

1840 

STft PftRFLG 


40 IE 809004 

1850 

STA TRANF 


4DE1 8D9804 

I860 

STA BITBF 


4084 809 104 

1870 

STA BINF 


4087 809304 

1880 

STA DUPLF 


4D8A 8D9C04 

1890 

STA FULLF 


4080 8DAE04 

1900 

STA BUFFN 


4030 809704 

1910 

STA GOLF LG 


4D33 SD9E04 

1 920 

STA ANSFL6 


4036 8OAF04 

1930 

STA D1ALF 


4039 8DE108 

1 940 

STft *0£E1 


403C 85CA 

1950 

STA INPBUF 


4D3E A906 

I960 

LDA #6 


4040 S5CB 

1970 

STA INPBUF+1 


4D4£ £00139 

1980 

J'SR MODI NIT 

• 

•4045 AOE708 

1990 

LDft «0£E7 


4048 8O8A04 

£000 

STA BOTBUF 


404B 85CC 

8010 

STA BUFPTR 


4D4D 6580 

8080 

STA BUFFER 


4D4F 8D8E04 

8030 

STA MAXTOR 


4058 ADE808 

£040 

LDA *08ES 


4055 8D8B04 

8050 

STA BQTBUF+1 


4058 85CD 

8060 

STA BUFPTR+1 


405 A 8581 

8070 

STA BUFFER+1 


4D5C 8D8F04 

8080 

STft MftXTOPH-1 


405F ADE508 

8090 

RESTRT LDft MEMTOP 


4068 808804 

£100 

STA TOPBUF 


4065 8O8C04 

£110 

STA BURMA X 


4068 8DAC04 

1 

£ 1 £0 

STA DIAL ADD 
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4D6B 

85C8 

8130 

ST (4 

DIPLBF 

4D6D 

PDE60E 

8140 

LDP 

MEN TOP* 1 

4070 

38 

8150 

c?p n 

w W. w 


4071 

E902 

8160 

SBC 

#2 

4D73 

808904 

8170 

STP 

TOPBUF+l 

4076 

8Dt4D04 

8180 

STP 

DIALADD+1 

4079 

85C9 

£190 

STP 

D1 PLBF4-1 

407B 

E904 

2800 

SBC 

#4 

4D7D 

808004 

£810 

STP 

BUFMPX+1 

4080 

20B730 

£££0 

JSR 

STERP 

4D83 

(409704 

£830 

LDP 

C0LFL8 

4086 

1006 

2840 

B P L 

NO80COL 

4088 

80(4559 

2250 

JSR 

LDNUM 

408B 

4CPD4D 

8860 

JMP 

MENU 



287 0 

n 

9 


4D8E 


8880 

NO80COL 


4D8E 

80DF38 

££ 901 

JSR 

ONHOOK 

4091 

809040 

8300 

JSR 

CLEER 

4094 

E6C9 

2310 

INC 

DIPLBF+1 

4096 

209040 

2380 

JSR 

CLEER 

4099 

C6C9 

£330 

DEC 

DI.ALBF+1 

4D9B 

D00P 

£340 

BNE 

HPRR 

4090 

P000 

£350 

CLEER LDY #0 

4D9F 

P99B 

£360 

CRL00P LDP #155 

40(41 

91C8 

£370 

STP 

(DIPLBF) , 

4DP3 

C8 

£380 

I NY 


40(44 

D0F9 

8390 

BNE 

CRLODP 

40(46 

60 

8400 

RTS 




8410 

a 

9 


40(47 

£0(4559 

8480 

HPRR JSI 

R LDNUM 

40(4(4 

£09039 

8430 

CPSBT JSR OPEN 



8440 

a 

f 




£450 

5 PRINT i 

MENU 



£460 

a 

9 


40(40 


£470 

MENU 


40 PD 

P988 

£480 

LDP 

#38 

4D(4F 

8D£F38 

£490 

STP 

T RAN 

4082 

209039 

£500 

JSR 

OPEN 

4DB5 

207 1 39 

£510 

JSR 

CLOSE 

40B8 

78 

O -* Ol 

! — J 1 — hJ 

BE I 


40B9 

P510 

£530 

LDP 

$10 

4DBB 

0980 

£540 

ORP 

#$30 

4DBD 

8510 

£550 

STP 

$10 

4DBF 

8D0ED2 

2560 

STP 

I RUE iM 

4DC8 

58 

£570 

CLI 

* 

4DC3 

Ad&0 

£580 

LDX 

#MQD 

4DC5 

(490C 

£590 

LDP 

#$0C 

4DC7 

904203 

£600 

STP 

ICCOM, X 

4DCP 

8056E4 

£610 

JSR 

C 1 0 V 

4DCD 

A97F 

8680 

LDP 

#$7F 

4DCF 

8D9F04 

£630 

STP 

I N VST 

4008 

P940 

£640 

LOP 

#$40 

4004 

8DBE02 

£650 

STP 

$08BE 

4007 

P900 

£660 

LDP 

#0 

4009 

8DB608 

£670 

STP 

$08B6 

4DDC 

8D9P04 

8 6 8 0 

STP 

LOADF 

4 DDF 

8D9B04 

8690 

STP 

SPVEF 

4DE8 

809504 

8700 

STP 

SPVMOD 
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4DE5 

8DS804 

£710 


81 A 

D I SKF 

4DE8 

8D9404 

£720 


ST A 

CASFLS 

4DEB 

8D9D04 

£730 


ST A 

DPRFL0 

4DEE 

8DC93A 

£740 


ST A 

PHONE 

4DF 1 

8DCA3A 

£750 


ST A 

QPFLG 

4DF4 

AD8E04 

£760 


LDA 

MAX TOP 

4DF 7 

a ^ r' r v 

Q w U U 

£770 


ST A 

BUFPTR 

4DF9 

AD8F®4 

£780 


LDA 

MAXTOP+1 

4DFC 

85CD 

£790 


ST A 

BUFPTR+1 

4DFE 

ADAF04 

£800 


LO A 

D 1 AL..F 

4E0 1 

0005 

£810 


BNE 

CARND 

4E03 

A900 

£8£0 


LDA 

#0 

4E05 

8DC93A 

£830 


81 A 

PHONE 

4E08 

E0C84E 

£840 

CARND JSR OEDIT 

4E0B 

A00E 

£850 


LOY 

#£ 

4E0D 

98 

£860 

ZEPPO TYA 

4E0E 

E05C5A 

£870 


JSR 

PL I NE 

4E1 1 

CS 

£880 


INY 


4E i £ 

C00A 

c!S90 


CPY 

#10 

4E 1 4 

D0F7 

£900 


BNE 

ZEPPO 

4E 1 6 

AD 9.30 4 

£910 


LDA 

DUPLF 

4E 1 9 

0007 

£9£0 


BNE 

FI 

4E18 

A905 

£930 

~ 7 *w 


LDA 

#5 

4E1D 

8D9F04 

£940 


STA 

IN VST 

4E£0 

D005 

£950 


BNE 

G0 

4E££ 

A90A 

£960 

F 1 

LO A 

# 1 0 

4E£4 

8D9F04 

£970 


STA 

IN VST 

4E£7 

A90A 

£980 

G0 

LDA 

# 1 0 

4EB9 

805C5A 

£990 


JSR 

PL I NE 

4E£C 

AD9004 

3000 

H0 

LDA 

TRANF 

4EEF 

0007 

3010 


BNE 

HI 

4E31 

A905 

30£0 


LDA 

#5 

4E33 

8O9F04 

3030 


STA 

IN VST 

46*^6 

0005 

3040 


BNE 

10 

4E38 

A90B 

3050 

HI 

LDA 

#11 

4E3A 

8D9F04 

3060 


STA 

INVST 

4E3D 

A90B 

3070 

10 

LDA 

#1 1 

4E3F 

E05C5A 

3080 


JSR 

PL I NE 

4E4E 

AO9104 

3090 


LDA 

B I NF 

4E45 

0007 

3 1 00 


BNE 

I 1 

4E47 

A905 

3110 


LDA 

#5 

4E49 

8D9F04 

3 1 £0 


STA 

INVST 

4E4C 

0005 

3130 


BNE 

J0 

4E4E 

A908 

3140 

I 1 

LDA 

#8 

4E50 

8O9F04 

3150 


STA 

INVST 

4E53 

A90C 

3160 

J0 

LDA 

#1£ 

T imw w w 

E05C5A 

3170 


JSR 

PL I NE 

4E58 

AD9704 

3 1 80 


LDA 

COLFLG 

4E5B 

3010 

3 1 90 


BN I 

J'£ 

4E5D 

0007 

3£00 


BNE 

ji 

4E5F 

A905 

3£ 1 0 


LDA 

jll t 

+FD 

4E61 

8D9F04 

3££0 


STA 

INVST 

4E64 

0017 

3£30 


BNE 

Ki3 

4E6S 

A908 

cl 4 0 

31 

LDA 

#8 

4E68 

8D9F04 

3£50 


STA 

INVST 

4E6B 

00 1 0 

3E60 


BNE 

K® 

4E6D 

C980 

3£70 

J£ 

CMP 

wsfcS® 

4E6F 

0007 

■J?£80 


BNE 

33 
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4E7 1 

P90B 

3690 


LDP 

#11 

4E73 

8D9F04 

3300 


ST P 

IN VST 

4E*? 6 

D005 

3310 


BNE 

K0 

4E78 

P90E 

3 6 0 

J3 

LDP 

#14 

4E7P 

8D9F04 

3330 


STP 

IN VST 

4E7D 

P90D 

3340 

K0 

LDP 

#13 

4E7F 

605C5P 

3350 


JSR 

PL I NE 

4E86 

PDB504 

3360 


LDP 

KEYF 

4E85 

F007 

3370 


BEQ 

7KPB1 

4687 

P90D 

j!>380 


LDP 

#13 

4E89 

8D9F04 

3390 


STP 

IN VST 

4E8C 

D005 

3400 


BNE 

7KPB6 

4E8E 

P905 

3410 

7KPB1 LDP #5 

4E90 

8D9F04 

3460 


STP 

IN VST 

4E93 

P90E 

3430 

7KPB6 LDP #14 

4E95 

605C5P 

3440 


JSR 

PL I NE 

4E98 

P90F 

3450 


LDP 

# 1 5 

4E9P 

605C5P 

3460 


JSR 

PL I NE 

4E9D 

P910 

3470 


LDP 

#16 

4E9F 

605C5P 

3480 


JSR 

PL I NE 

4EP6 

PDP638 

3490 


LDP 

PPRFLi 

4EP5 

3010 

3500 


BMI 

K6 

4EP7 

F007 

3510 


BEQ 

K 1 

4EP9 

P908 

3560 


LDP 

#8 

4EPB 

8D9F04 

3530 


STP 

IN VST* 

4EPE 

D00C 

3540 


BNE 

70 

4EB0 

P905 

3550 

K 1 

LDP 

#5 

4EB6 

8D9F04 

3560 


STP 

IN VST 

4EB5 

D005 

3570 


BNE 

7 0 

4EB7 

P90C 

3580 

K6 

LDP 

#16 

4EB9 

8D9F04 

3590 


STP 

IN VST 

4EBC 

P91 1 

3600 

T0 

LDP 

# 1 7 

4EBE 

605C5P 

36 1 0 


JSR 

PL I NE 

4EC1 

P916 

3660 


LDP 

#18 

4EC3 

605C5P 

%^6 30 


JSR 

PL I NE 

4EC6 

PD8704 

3640 


LDP 

BDFL0 

4EC9 

F007 

3650 


BEQ 

7X300 

4ECB 

P909 

vi660 


LDP 

#9 

4ECD 

8D9F04 

3670 



4ED0 

D005 

3680 


BNE 

7FFFP 


4ED6 
4ED4 
4ED7 
4ED9 
4EDC 
4 EOF 
*+EEc. 
4EE4 
4EE7 


P905 

8D9F04 

P91 3 

605C5P 

605F51 

609855 

P914 

605C5P 

60F430 


4£EP 604 ISA 
4EED 1003 
4EEF 4CPD4D 


01 f- <J ¥ ‘fc i 

r)^ e ‘ i ^ c? ■ 1 

^ <7 v r r ( 


3690 

3700 

3710 

3760 

3730 

3740 

3750 




3770 
3780 
3 790 
3800 
3810 
3860 
3830 
3840 
3850 


? X300 LDP #5 


7FFFA 'LDP #19 
JSR PL I NE 
JSR BUFFSZ 
JSR BUFUSED 
LDP #60 
JSR PLINE 
JSR STL I NE 


5 GET CHOICE FROM KEYBOPRD 

tt 

? 

GCHCE JSR 0ETKEY 
BPL GCHOK 
MENU 1 JMP MENU 

5 


? A 5 r 1 

1 ¥i(/s r 


i860 s EXECUTE CHOICE 
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4EF2 


3870 

3880 

4EF£ 

C914 

3890 

4EF 4 

0016 

3900 

4EF6 

AD6504 

39 1 0 

4EF9 

4901 

39S0 

4EFB 

8D6504 

3930 

4EFE 

F006 

3 9 4 0 

4F00 

£01145 

3950 

4F03 

4CEA4E 

3960 

4F06 

£0££45 

3970 

3980 

4F09 

4CEA4E 

3990 

4F0C 

C903 

4000 

4010 

4F0E 

D0E5 

40£0 

4F10 

IB 

4030 

4F1 1 

A90A 

4040 

4F13 

8DBS04 

4050 

4F16 

8DC50S 

4060 

4F19 

ADB 104 

4070 

4F1C 

690c! 

4080 

4F1E 

8DB104 

4090 

4FE* 1 

8DC60E 

4100 

4F£4 

£‘90F 

41 10 

4FE6 

C908 

4 1 £0 

4F£8 

3008 

4130 

4 F£A 

A900 

4140 

4F£C 

8DBE04 

4150 

4F2F 

8DC50E 

4160 

4F3E 

4CEA4E 

4170 

4F35 

C94 1 

4180 

4190 

4F37 

D003 

4*200 

4F39 

4CDD43 

4£ 1 0 

4F3C 

C942 

4££0 

4£30 

4F3E 

0003 

4£40 

4F40 

4CAC55 

4 £50 

4F43 

C943 

4260 

4270 

4F45 

D003 

4£80 

4F47 

4C7852 

4 £90 

4F4A 

C944 

4300 

4310 

4F4C 

0003 

43£0 

4F4E 

4C£D5£ 

4330 

4F51 

C945 

4340 

4350 

4F53 

0003 

4360 

4F55 

4CFD4E 

4370 

4F5S 

C946 

4380 

4390 

4F5A 

O00B 

4400 

4F5C 

A901 

4410 

4F bfci 

409304 

44£0 

4F61 

BD9304 

4430 

4F64 

4CAD4D 

<+440 


GCHOK 

CMP #$14 ; <CTRL> 

BNE CCTL 

LDA CLOK 

EUR #1 

ST A CLOK 

BEQ COF 

JSR CLOCKQN 

JMP GCHCE 

a 

? 

COF JSR CLOCKOFF 
JMP GCHCE 

tt 

5 

CCTL CMP #$03 ; <CTRL> 

BNE CA 
FRANS CLC 



LDA 

#$0A 


ST A 

DEFCHR 


ST A 

$0£C5 


LDA 

DEFCLR 


ADC 

#$0£ 


ST A 

DEFCLR 


ST A 

$0£C6 


AND 

#$0F 


CMP 

#$08 


BMI 

CXF 


LDA 

#$00 


ST A 

DEFCHR 


ST A 

$0£C5 

CXF 

n 

JMP 

GCHCE 

* 

CA 

CMP 

#’ A 


BNE 

CB 


JMP 

DSKFNC 

CB 

CMP 

#’ B 


BNE 

V~/ w 

n 

JMP 

DIRDISK 

9 

cc 

CMP 

#’ C 


BNE 

CD 

a 

JMP 

COPY8F 

CD 

CMP 

#» D 


BNE 

CE 

a 

JMP 

DELBF 

9 

CE 

CMP 

E 


BNE 

CF 

a 

JMP 

NE WBUFF 

9 

CF 

CMP 

F 


BNE 

CHI 


LDA 

#1 


EOR 

DUPLF 


ST A 

DUPLF 


JMP 

MENU 


T 


C 
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4450 

tt 

•5 



4F67 

C948 

4460 

CHI 

CMP 

H 

4F69 

D0 1 1 

4470 


BNE 

Cl 

4F6B 

P901 

4480 


LDP 

#i 

4F6D 

4D9004 

4490 


EOR 

TRPNF 

4F70 

8D9004 

4500 


ST P 

TRPNF 

4F73 

8D9£04 

4510 


SIP 

B1T8F 

4F76 

4CPD4D 

4580 


JMP 

MENU 



4530 

* 

9 



4F79 

4CPD4D 

4540 

JMEN JMP MENU 



4550 

a 



4F7C 

C949 

4560 

Cl 

CMP 

I 

4F7E 

D00B 

4570 


BNE 

CJ 

4F80 

A 901 

4580 


LOP 

#1 

4F88 

4D9104 

4590 


EQR 

B I NF 

4F85 

8D9104 

4600 


8 TP 

B I NF 

4F88 

4CPD4D 

4610 


JMP 

MENU 



4680 

« 

5 



4F8B 

C94P 

4630 

CJ 

CMP 

#’ J 

4F8D 

D07B 

4640 


BNE 

OK 

4F8F 

PD9704 

4650 


LDP 

COLFLG 

4F98 

C980 

4660 


CMP 

#$60 

4F94 

F057 

4670 


BEQ 

Z80COL 

4F96 

C9FF 

4680 


CMP 

#$FF 

4F98 

F 01 i 

4690 


BEQ 

Z38C0L 

4F9P 

PD9704 

4700 


LOP 

COLFLG 

4F9D 

D034 

4710 


BNE 

Z 6*+ COL 

4F9F 

4901 

4780 


EOR 

#1 

4FP1 

8D9704 

4730 


SIP 

COLFLG 

4FP4 

A900 

4740 


LDP 

#0 

4FP6 

A5SP 

Wr 

4750 


SIP 

W l.. 

4FP8 

4CPD4D 

4760 


JMP 

MENU 



4770 

tt 



4FPE< 

P908 

4780 

Z38C0L LDP #8 

4FPD 

8558 

4790 


SIP 

< fc Ci.' 

I«H 

4 FPF 

A900 

4800 


LDP 

#0 

4FB1 

809704 

4810 


SIP 

COLFLG 

4FB4 

A900 

4880 


LDP 

#$00 

4FB6 

8D8103 

4830 


STP 

'1>038 1 

4FB9 

P9E4 

4840 


LDP 

#$E4 

4FBB 

808803 

4850 


81 P 

$0388* 

4FBE 

AO8304 

4860 


LDP 

OLDMEMTOP 

4FC 1 

8OE508 

4870 


STP 

MEM TOP 

4FC4 

PD8404 

4880 


LDP 

OLD M E M T 0 P ■+• 1 

4FC7 

8OE608 

4890 


STP 

MEMTGP+1 

4FCP 

800848 

4900 


JSR 

OEDIT 

4FCD 

4C5F40 

49 1 0 


JMP 

RESTRT 



4980 

«• 

9 



4FD0 

4CPD4D 

4930 

BMENU JMP MENU 



^+940 

u 

7 



4FD3 

807139 

4950 

ZS4C0L JSR CLOSED 

4FD6 

P948 

4960 


LDP 

# <MX64 

4FD8 

8DB704 

4970 


STP 

RFNPME 

4FDB 

P94C 

4980 


LDP 

# > MX 64 

4FDD 

BOB 804 

4990 


STP 

RFNPME-*- 1 

4FE0 

80P337 

5000 


JSR 

GETHDR 

4FE3 

3088 

501® 


BMI 

N0GPN1 

4FE5 

P980 

5080 


LDP 

#$60 
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ft 6; 


4FE7 

809704 

5030 

ST ft 

CGLFLG 


4FEA 

4C5F4Q 

5040 

JMP 

R2STRT 




5050 

It 

9 



4FED 

207139 

5060 

ZS0COL J 

i SR CLOSEM 


4FF0 

A94E 

5070 

LDA 

# <MX80 


4FF2 

8DB704 

5080 

ST A 

RENAME 


i »»H» MMI ilHl 

4r r vj 

A94C 

5090 

LDA 

# > MX 80 


4FF7 

8DB604 

5100 

S T A 

RFNAM2+1 


4FFA 

20A337 

51 10 

JSR 

GETHDR 


4FFD 

3008 

5120 

BM I 

NG0PN1 


4FPP 

A9FF 

5130 

LDA 

#$FF 


5001 

809704 

5140 

STA 

COLFLG 


5004 

4C5F40 

5150 

JMP 

I \ U. W 1 M 1 




5160 

ts 

9 



5007 

4CAB4F 

5170 

NQQPN1 JMP Z38C0L 




5180 

n 

9 



50®A 

C94B 

5190 

CK CMP 

# ? K 


500C 

0023 

5200 

BNE 

Cl 


500E 

ADB504 

5210 

LDA 

KEYF 


501 1 

4901 

5220 

EGR 

#1 


5013 

8DB504 

5230 

STA 

KEYF 


5016 

D00C 

5240 

BNE 

?SK 


5018 

A930 

5250 

LDA 

#$30 


501 A 

8DD902 

5260 

STA 

$0209 


50 1 D 

A9®S 

527 0 

LDA 

#$06 


50 1 F 

8DDA02 

. 5280 

STA 

$®2DA 


5022 

D00A 

5290 

BNE 

?AK 


50 £4 

A915 

5300 

?SK LDA 

#$15 


50 £6 

8DD902 

5310 

STA 

$®2D9 


5029 

A902 

5320 

LDA 

#■$>02 


502 B 

8DDA02 

5330 

STA 

$02DA 


502E 

4CAD4D 

5340 

?AK JMP 

MENU 




5350 

M 

9 



5031 

C94C 

5360 

CL CMP 

#’ L 


5033 

0003 

5370 

• BNE 

CM 


5035 

4CCB53 

5380 

JMP 

LOADBF 




5390 

M 

9 



5038 

C94D 

5400 

CM CMP 

# 5 M 


5$3A 

0003 

5410 

BNE 

CP 


503C 

4C9C57 

5420 

JMP 

DIAL 




5430 

H 

? 



50-3F 

C950 

5440 

CP CMP 

#» P 


5041 

D02C 

5450 

BNE 

CT 


5043 

A900 

5460 

LDA 

#0 


5045 

8D9004 

5470 

STA 

TRANF 


5048 

809204 

5480 

STA 

BIT8F 


504B 

ADA63S 

5490 

LDA 

PARFLG 


504E 

3014 

5500 

BMI 

CP® 


5050 

F009 

5510 

BEQ 

CP 1 


5052 

A902 

5520 

LDA 

#2 5 TO 

EVEN 

5054 

8D3038 

5530 

STA 

PAR 


5057 

A9S0 

5540 

LDA 

#$80 


5059 

D00E 

5550 

BNE 

CPSTR 


505B 

A901 

5560 

CPI LDA 

#1 3 TO 

ODD 

5050 

803038 

5570 

STA 

PAR 


5060 

A901 

5580 

LDA 

#1 


5062 

0005 

5590 

BNE 

CPSTR 


5064 

A900 

5600 

CP0 LDA 

#0 ; TO 

NO 


aa 
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50BB 

8D3038 

56 1 0 
% 

ST A 

PAR 

5069 

8DA638 

56£0 

CPSTR ST A PARFL 

50BC 

4CAD4D 

5630 

JMP 

MENU 



5640 

a 

5 


506F 

C954 

cr ir tu; i 

CT CMP 

# ’ T 

5071 

F0S0 

5660 

BEQ 

TERM1 

5073 

C956 

5670 

CMP 

#v v 

5075 

D019 

5680 

BNE 

VOOM 

5077 

AD8704 

5690 

LDA 

BDFLG ^ 

507 A 

4901 

5700 

BBRrXfH C 

507C 

8D8704 

5710 

STPh- 

-BDFLL 1 

507 F 

F007 

57 £0 

BEQ 

7H300 

5081 

A90A 

5730 

LDA 

#10 

5083 

8D2B38 

5740 


5086 

D005 

5750 

BNE 

Vr&fPr h : 

5088 

A908 

5760 

7H300 LDA #8 \ 

508A 

8D2B38 

5770 

ST A 

RBAUD 

508D 

4CAD4D 

5780 

?H4ft JMP MENU 



5790 

u 

a 

4 


5090 

4CEA4E 

5800 

VOOM JMP GCHCE 



5810 

ii 

9 


5093 

E0F430 

58£0 

TERM! JSR STL IN 

5096 

4CE654 

5830 

JMP 

TERM2 



5840 

« 

9 


5099 

£07139 

5650 

DIRECT JSR CLOS: 

509C 

A£30 

5860 

LDX 

#$30 

509E 

£09A4£ 

5870 

JSR 

CIOCB 

50A1 

A903 

5860 

LDA 

# COPEN 

50A3 

9D4203 

5890 

ST A 

ICCMD, X 

50A6 

A 9 06 

5900 

LDA 

#6 

50A8 

9D4A03 

5910 

ST A 

icaxi, x 

50AB 

A900 

5920 

LDA 

#0 

50 AD 

9D4B03 

5930 

ST A 

ICAX2, X 

50B0 

A9F£ 

5940 

LDA 

# <M46 

50B2 

9D4403 

5950 

ST A 

I CBAL, X 

50B5 

A948 

5960 

LDA 

# > M48 

50B7 

9D4503 

5970 

ST A 

ICBAH, X 

50BA 

205624 

5960 

JSR 

C I OV 

50BD 

3039 

5990 

BMX 

D I RERR 

50BF 

A£30 

6000 

PD I R LDX 

. #$30 

50C1 

A996 

60 1 0 

LDA 

# <BUFF 

50C3 

9D4403 

6020 

ST A 

I CBAL, X 

50C6 

A900 

6030 

LDA 

# > BUFF 

50C8 

9D4503 

6040 

ST A 

ICBAH, X 

50CB 

A905 

6050 

LDA 

#CGETR 

50CD 

9D4203 

6060 

STA 

ICCMD, X 

50D0 

A928 

6070 

LDA 

#40 

50 DE 

9D4803 

6080 

STA 

ICBLL, X 

50D5 

2056E4 

6090 

JSR 

CIOV 

50D8 

30 IE 

6100 

BMI 

DIRERR 

50DA 

A£40 

6110 

LDX 

#$40 

50DC 

A900 

6 1 20 

LDA 

# > BUFF 

50DE 

9D4503 

6 1 30 

STA 

ICBAH, X 

50 El 

A996 

6 1 40 

LDA 

# <BUFF 

50E3 

9D4403 

6150 

STA 

I CBAL, X 

50E6 

A9£8 

6 1 60 

LDA 

#40 

50 E 8 

9D4803 

6170 

STA 

I CELL, X 

50EB 

A909 

6 1 80 

LDA 

#CPUTR 


l!A<L 


U\ri 


T 


6 6\-L& 


c mf it# on 

6 H Jc'(7 / ( 

Ly ( 


r' 

cX 


i~f 3# o , z 
5£\ 



P tz. 

I t1 c M 


Ri7iP n 
itj a. u 

9D4H03 

6190 

Sift 1 CCMD, X 

50F0 

H056E4 

6 S 00 

J SR CXGV 

50F3 

3003 

6H 1 0 

BMI DIRERR 

50F5 

4CBF50 

6HH0 

6H30 

JMP PD I R 

«i 

9 

50F8 

C003 

6H40 

DIRERR CPY #$03 

50FA 

F007 

6H50 

BEG DIRDONE 

50FC 

C088 

6H60 

CPV #$8B 

50FE 

F0©3 

6H70 

BEQ DIRDONE 

5100 

H0HH51 

6H80 

JSR DERROR 

5103 

ftH30 

6H90 

DIRDONE LDX #$30 

5105 

£09ft4H 

6300 

JSR CIOCB 

5108 

H00C51 

6310 

JSR WftITKEY 

510B 

60 

63H0 

6330 

RTS 

ta 

510C 

48 

6340 

WftITKEY PH ft 

510D 

8ft 

6350 

TXft 

5 1 0E 

48 

6360 

PHft 

510F 

98 

6370 

TYft 

5110 

48 

6380 

PHft 

5111 

H0DD5ft 

6390 

JSR CRET 

5114 

ft93B 

6400 

LDft #59 

51 16 

H05C5ft 

6410 

JSR PLINE 

51 19 

£04 15ft 

64H0 

JSR GETKEY 

51 1C 

68 

6430 

PL ft 

51 ID 

ft8 

6440 

TftY 

51 IE 

68 

6450 

PLft 

51 IF 

ftft 

6460 

TAX 

51£0 

68 

6470 

PLft 

5121 

60 

6480 

6490 

RTS 

* 

5 1 EH 

48 

6500 

DERROR PHft 

cr i o *7 

\~J X U. s~l 

8ft 

6510 

TXft 

51H4 

48 

65H0 

PHft 

51H5 

98 

6530 

TYft 

5 1 H6 

48 

6540 

PHft 

51H7 

ft£40 

6550 

LDX #$40 

51 H9 

w »L (mm w 

ft9H4 

6560 

LDft # < MERROR 

5 1HB 

9D4403 

6570 

ST ft ICBftL, X 

51 HE 

ft94C 

6580 

LDft # > MERROR 

5130 

9D4503 

6590 

ST ft ICBftH, X 

5133 

A90E 

6600 

L.Dft #14 

5135 

9D4803 

66 1 0 

ST ft I CELL, X 

5138 

ft 900 

66H0 

LDft #0 

513ft 

9D4903 

6630 

ST ft ICBLH, X 

5 1 3D 

H0D45ft 

6640 

JSR ft L. L P X 

5140 

£08730 

6650 

JSR ST ERA 

5143 

68 

6660 

PLft 

5144 

85D4 

6670 

ST ft FR0 

5146 

A900 

6680 

LDft #0 

5148 

85D5 

6690 

ST ft FR04-1 

514ft 

£0ftftD9 

6700 

JSR IFP 

5 1 40 

H0E6D8 

6710 

JSR FftSC 

5 1 50 

H0015H 

67H0 

JSR PftSC 

cr 4 kt "2 

w 4. vj w 

H0DD5ft 

6730 

JSR CRET 

5156 

ft900 

6740 

LDft #0 

5158 

904803 

6750 

ST ft I CELL, X 

515 B 

68 

6760 

PLft 
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kt cu:f* 

w X ww 

PP 

6770 

TPX 


515D 

68 

6780 

P L. P 


515E 

60 

6790 

RTS 




6800 

«s 


515F 

P580 

6810 

BUFFS Z LDP BUFFER 

5 1 6 1 

8504 

68E0 

ST P 

FR0 

cr t £ 

vj X O vmJ 

P58 1 

6830 

LDP 

BUFFER* i 

5 1 A5 

W .u w w 

8505 

6840 

SIP 

FR0+1 

5167 

20PPD9 

6850 

J SR 

IFP 

5 IBP 

20B6DD 

6860 

J'SR 

F MOVE 

S 1 6 D 

a cr n n 

HjLL 

6870 

LOP 

BUFPTR 

516F 

8504 

6880 

STP 

FR0 

5171 

P5CD 

6890 

LDP 

BUFPTR* l 

5173 

8505 

6900 

STP 

F R0+ 1 

5175 

20PPD9 

6910 

JSR 

IFP 

5 1 78 

E0DD5P 

69E0 

JSR 

CRET 

517B 

E0F551 

6930 

JSR 

SUBTR 

517E 

P240 

6940 

LDX 

#$40 

5 1 80 

P90B 

6950 

LDP 

# <BMESi 

51 82 

904403 

6960 

STP 

ICBPL, X 

5185 

P94C 

6970 

LDP 

# > BMES 1 

5187 

904503 

6980 

STP 

ICBPH, X 

518P 

P90D 

6990 

LDP 

#13 

51 SC 

904803 

7000 

STP 

ICBL.L, X 

518F 

2056E4 

7010 

JSR 

CIOV 

5192 

P5CC 

70E0 

LDP 

BUFPTR 

5i94 

8504 

7030 

STP 

FR0 

5196 

P5CD 

7040 

LDP 

BUFPTR* 1 

5 1 98 

Qerne 

O vJ U \.J 

7050 

STP 

FR0*i 

5 1 9 A 

20PPD9 

7060 

JSR 

I FP 

5190 

E0B6DD 

7070 

JSR 

FMOVE 

51P0 

PD8804 

7080 

LDP 

topbuf 

51P3 

8504 

7090 

STP 

FR0 

5IP5 

PD8904 

7 1 00 

LDP 

TOPBUF* 1 

SIPS 

8505 

7110 

STP 

FR0*1 

51PP 

E0PPO9 

71E0 

JSR 

IFP 

5 1 PD 

E0F551 

7130 

JSR 

SUBTR 

51B0 

PE 40 

7140 

LDX 

#$40 

5 1 BE 

P918 

7 1 50 

LDP 

# <BMES2 

51B4 

904403 

7 1 60 

STP 

ICBPL, X 

51B7 

P94C 

7170 

LDP 

# > BMES2 

51B9 

904503 

7180 

STP 

ICBPH, X 

S1BC 

P90C 

7 1 90 

LDP 

# 1 

51 BE 

904803 

7E00 

STP 

ICBLL, X 

5 1 C 1 

E056E4 

7 E 1 0 

JSR 

CIOV 

51C4 

PE 6 9 

/ dd0 

LDX 

# < DP MOM 

51C6 

P04C 

7E30 

LDY 

# > DPNUM 

51C8 

E098DD 

7E40 

JSR 

$0098 

5 1 CB 

E0E8DB 

7250 

JSR 

$DB&S 

5 ICE 

E0DED9 

7E60 

JSR 

$0902 

5101 

P504 

7270 

LDP 

FR0 

51D3 

F00E 

7E80 

BEQ 

CRUD 

5 1 DS 

C6D4 

7290 

DEC 

FR0 

5107 

E0PPO9 

7300 

CRUD JSR *D9PP 

51 DP 

E0E6O8 

7310 

JSR 

FPSC 

51 DO 

E0015E 

73E0 

JSR 

PPSC 

51E0 

PE40 

7 3 wi 0 

LDX 

4 0 

51 EE 

P95P 

7340 

LDP 

# <BMES 3 



PftGE 


73 

02 s NENU1 . MSS 


51E4 

904403 

7350 

ST ft ICBftL, X 

51E7 

A94C 

7360 

LDP # >BMES3 

51ES 

904503 

7370 

ST ft ICBAH,, X 

51 EC 

P90F 

7380 

LDft #15 

5 1 EE 

904803 

7390 

ST ft ICBLL, X 

51 FI 

2056E4 

7400 

JSR CXGV 

5 IF 4 

60 

7410 

7420 

RTS 

« 

51F5 

20600ft 

7430 

SUBTR JSR F SUB 

51F8 

20E6O8 

7440 

JSR F ft SC 

51 FB 

P240 

7450 

LDX #$40 

51 FD 

200152 

7460 

JSR PftSC 

5200 

60 

7470 

7480 

RTS 

IS 

9 

5201 

P240 

7490 

PftSC LDX #$40 

5203 

A0FF 

7500 

LDV #$FF 

5205 

CS 

7510 

FPRINT I NY 

5206 

B98005 

7520 

LOft $0580, V 

5209 

10FP 

7530 

BPL FPRINT 

520B 

297F 

7540 

AND #$7F 

520 D 

998005 

7550 

ST ft $0580, Y 

5210 

C8 

7560 

I NY 

521 1 

98 

7570 

TYft 

52 1 2 

904803 

7580 

ST ft I CELL, X 

5215 

P900 

7590 

LDft #0 

52 1 7 

904903 

7600 

ST A ICBLH, X 

52 IP 

A980 

7610 

LDft #$80 

52 1 C 

904403 

7620 

STft ICBftL, X 

52 IF 

A905 

7630 

L-Oft # $ 0 5 

5221 

904503 

7640 

STft ICBAH, X 

5224 

P90B 

7650 

LDft #$08 

in; r: 

Dccd 

904203 

7660 

STft ICCMD, X 

RppQ 

W/ row 

2056E4 

7670 

JSR CXGV 

522C 

60 

7680 

7690 

RTS 

n 

5220 

20C842 

7700 

DELBF JSR OEDIT 

5230 

A935 

77 1 0 

LDft #53 

m ■“« “j •••*! 

UfU Wl>m 

205C5P 

7720 

JSR PLINE 

nr o ^ 

20A342 

7 730 

JSR OKEYB 

5238 

A907 

7740 

GCHCEl LOft #$07 

523ft 

904203 

7750 

STft ICCMD, X 

5230 

2056E4 

7760 

JSR CIGV 

5240 

30F6 

7770 

BM1 GCHCEl 

5242 

C959 

7780 

CMP #’ Y 

5244 

F003 

7790 

BEQ DELYES 

5246 

4CPD40 

7800 

7810 

JMP MENU 

u 

9 

5249 

PDE702 

7820 

DELYES LDft $02E7 

524C 

ncrff 

W W W W 

7830 

STft BUFPTR 

524E 

8D8E04 

7840 

STft MftXTOP 

cr. o cr •! 
v-J c. wJ 1 

8D8A04 

7850 

STft BOTBUF 

5254 

8580 

7860 

STft BUFFER 

5256 

8582 

7870 

STft BUFFER+2 

5258 

ADE802 

7880 

LDft $02E8 

er •“» O 
JCJD 

85C0 

7890 

STft BUFPTRhh I 

5250 

808 F 04 

7900 

STft MftXTOP-f-1 

5260 

8O8B04 

7910 

STft BQTBUF+1 

5263 

8581 

7920 

S fft BUF F E R*+* 1 


PAB E 74 


cr o c. «•", 
JCDJ 

8583 

7930 

ST (4 

BUFF ER*+*3 

c *‘*t /" -y 

52fc> < 

A900 

7940 

LD(4 

#0 

croc Q 
vJCD 17 

8DAE04 

7950 

ST (4 

BUFF N 

526C 

8D9C04 

7960 

ST A 

FULLF 

sasF 

8D9504 

7970 

ST A 

savmod 

52 72 

20B730 

7980 

JSR 

BTERA 

|*««' .♦*», •♦-*v 

vJi C_ r v-J 

4CAD4D 

7990 

8000 

JMP 

« 

MENU 

£=: o 7 o 

uc / o 

207139 

8010 

CQPYBF JSR CLOSE 
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60 

01 1480 
011490 

H 

* 

RTS 

5584 

AE40 

01 1500 

8ADBUF LDX #$40 

5586 

A90B 

01 1510 


LDA #$0B 

rs.- sr; £» rv 
JJOO 

9D4E03 

01 1 520 


STA ICCMD, X 

isr ssr. a O 

wIvJOJD 

A937 

01 1530 


LDA #55 

558D 

E05C5A 

0 1 1 540 


JSR PL I ME 

5590 

E00C51 

01 1550 


JSR WAITKEY 

5593 

68 

011560 


PL A 

5594 

68 

01 1570 


PLA 

5595 

4CAD4D 

01 1580 
011590 

M 

9 

JMP MENU 

5598 


01 1600 

BUF USED 

5598 

A900 

011610 


LDA #0 

559A 

9D4803 

01 1620 


STA ICBlL, X 

559D 

ADAE04 

011630 


LDA BUFFN 

55A0 

18 

01 1640 


CLC 

55 A 1 

6931 

011650 


ADC #$31 

55A3 

E056E4 

011 660 


JSR CIQV 

55A6 

A936 

01 1670 


LDA #54 

55A8 

E05C5A 

0 1 1 680 


JSR PLIN2 

55AB 

60 

011690 


RTS 



01 1700 

« 

9 

• 

55AC 

E0C84E 

011710 

DIRDXSK JSR QEDIT 

55AF 

A04C 

01 1720 


LDY #76 

er er o 4 

JJO X 

98 

011730 

MARX TYA 

55 BE* 

E05C5A 

011740 


JSR PLINE 

c:; cr r\ cr 
vJ *J W V.J 

C8 

011750 


I NY 

55B6 

C054 

011760 


CPY #84 

55B8 

D0F7 

011770 


BNE MARX 

55BA 

E0415A 

011780 

DRPR0K JSR 8ETKEY 

55BD 

C93 1 

011790 


CMP #$31 

55BF 

F007 

011800 


BEQ MODI SK 

55C 1 

C93E 

01 1610 


CMP #$3£ 

55C3 

F016 

01 1820 


BEQ DISKMOD 

cr c;; cr 

w w w w 

4CAD4D 

01 1830 
01 1840 

m 

JMP MENU 

55C8 

A900 

01 1850 

MODISH LDA #0 

55CA 

809504 

01 I860 


STA SAVMOD 

55CD 

A901 

011 870 


LDA #1 

55CF 

8D9104 

011880 


STA BINF 

55DE 

809804 

011 890 


S1A DISKF 

55D5 

20EC55 

0 1 1 900 


JSR BF1LEN 

55D8 

4CE654 

011910 
011 920 

u 

JMP TER M2 

55DB 

A901 

011930 

DISKMGD LB A #1 

55DD 

809504 

01 1940 


STA SAVMOD 

55E0 

809104 

011950 


STA BINF 

ttrerp--> 

\,rJ W ?MM W 

809804 

01 1960 


STA DISKF 

55E6 

E0EC55 

01 1970 


JSR GFILEN 

|MM 
MM, ***, 

wfwJlZ. :7 

4CE654 

01 1980 


JMP TERM2 
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55EC 

6840 

011990 

018000 

a 

* 

BF I l.Ei\ 

i LDX #$40 

Cm* Cm* **>i 

wJ xJ iZ. fcl 

804356 

018010 

JSR 

F PROMT 

55 F 1 

1005 

018080 

BPL 

CKOOPN 

55F3 

68 

018030 

D1RBCK 

; pl p 

55F4 

68 

018040 

PL 6 


55F5 

4CPD4D 

0 1 8050 

JMP 

MENU 

55FB 

80C430 

018060 

018070 

a 

7 

CKDGPN 

i JSR STNPME 

55FB 

6596 

0 1 8080 

LDP 

BUFF 

55FD 

C944 

018090 

CMP 

# 9 0 

55 FF 

D0F8 

018100 

BNE 

01 RBCK 

5601 

6830 

018110 

LDX 

#$30 

5603 

809648 

018180 

JSR 

CIGCB 

5606 

609504 

018130 

LDP 

SPVMGD 

5609 

0008 

0181 40 

BNE 

DOUTPUT 

560B 

6908 

0 1 8 1 50 

LDP 

#8 

5600 

904603 

018160 

ST 6 

1C6X1, X 

5610 

4C1856 

018170 

JMP 

D INPUT 

5613 

6904 

0181 80 
018190 

tt 

DOUTPUT LDP #4 

5615 

904603 

0 1 8800 

ST 6 

1CPX1, X 

5618 

6900 

018810 

D I NPUT 

’ LDP #0 

56 IP 

9O4B03 

018880 

ST 6 

ICPX8, X 

5610 

6903 

018830 

LDP 

#3 

56 IF 

904803 

018840 

ST6 

ICCMDm X 

ET. C. O O 

JDuu. 

6996 

018850 

LDP 

# <BUFF 

5664 

904403 

0 1 8860 

ST6 

ICB6L, X 

5687 

6900 

018870 

LDP 

# > BUFF 

5689 

904503 

018880 

ST 6 

1CBPH, X 

568C 

690F 

018890 

LDP 

#15 

e;:;z“ Oil" 
JOuHl 

904803 

018300 

ST6 

ICBlL, X 

5631 

8056E4 

018310 

JSR 

CIGV 

5634 

1 009 

0 1 8380 

BPL 

DOPNOK 

5636 

808851 

018330 

JSR 

DERROR 

5639 

800C51 

018340 

JSR 

top IT KEY 

563C 

4CF355 

018350 

JMP 

D1RBCK 

563F 

80C430 

0 1 8360 
018370 

m 

1 

DOPNQK 

; JSR STNPME 

5648 

60 

018380 

RTS 


5643 


018390 

018400 

F PROMT 


5643 

69F9 

0 1 84 1 0 

LDP 

# <MFILEN 

5645 

904403 

018480 

ST6 

ICBPL, X 

5648 

694B 

018430 

LDP 

# > MFILEN 

5646 

904503 

018440 

ST 6 

ICBPH, X 

5640 

690£ 

018450 

LDP 

# .1 4 

564F 

9D4803 

0 1 8460 

ST 6 

ICBLL, X 

5658 

6900 

018470 

LDP 

#0 

5654 

9D4903 

018480 

ST 6 

ICBLH, X 

5657 

690B 

018490 

LOP 

#CPUTC 

5659 

904803 

018500 

ST 6 

I COM D, X 

565C 

8056E4 

0 1 85 1 0 

JSR 

C I ov 

565F 

6905 

018580 

LDP 

#$05 

5661 

904803 

018530 

ST 6 

XCCMD, X 

5664 

6986 

018540 

LDP 

#38 

5666 

9D4B03 

0 1 8550 

STP 

I CBLL, X 

W w w u 

6996 

018560 

LDP 

# <BUFF 
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MENU 1 




567D 

022F41 

0120 

MAG A I N .BYTE £, ”/«" ; REPEAT 

5680 

050D3056 

0130 

SETD .BYTE 5," 

0 VTA 

11 ; DIGITS 



5684 

5441 



5686 

040D5A54 

0140 

RSTM . BYTE 4, *' 

ZIP” 

; RESET 



568A 

4 1 



5688 

032B2B2B 

0150 

PLUS . BYTE 3, ”+++" ; GU COMMAND 

568F 

050D3048 

0160 

HANS . BYTE 5, " 

0HTA 

" 5 HANG UP 



5693 

5441 



5695 

04544454 

0 1 70 

MDIL .BYTE 4, "TDTA" 5 DIAL. PHONE 

5699 

41 

0 1 80 

tt 

? 

569A 

C90D 

0190 

?EOLN CMP 

569C 

F007 

0200 

BEQ ?EL 

569E 

C99B 

0210 

CMP #$9B 

56 m 

F003 

0220 

BEQ ?EL 

56A2 

A901 

0230 

LDP 41 f F A I L. E L) 

56 Pi 4 

60 

0240 

RTS 



0250 

« 

9 

56A5 

A900 

0260 

?EL LDA #0 3 OKAY 

56A7 

60 

0270 

RTS 



0280 

If 

9 

56A8 


0290 

? MODERR 

56A8 

A921 

0300 

LDA #33 3 BAUD MISMATCH 

56AA 

805C5A 

03 1 0 

JSR PLINE 

56AD 

£04 ISA 

0320 

J SR GETKEY 

56B0 

68 

0330 

PLA 

56BI 

68 

0340 

PL A 

5682 

4CAD4D 

0350 

JMP MENU 



0360 

n 

9 

w W C? w 


0370 

PMCOMM 

5685 

8D7756 

0380 

ST A ?LCHAR 

56B8 

A920 

0390 

LDA #'^20 

56BA 

8D7856 

0400 

ST A ?TMP 

56BD 

ADFC02 

0410 

?0 FFO LDA CH 

56C0 

C9FF 

0420 

CMP #*FF 

56C8 

F003 

0430 

BEQ ?FT 


MH4 J* ittL > 






» 1 >•** * ♦ .► 


>»•••' iMf Mir i 

* » f w r 

•f..' — r t »£.« 

0450 

* 

■r 

ji'f p~' 

X WUU f X 

56C7 

CE7856 

0460 

? F 

r T DEC 

?Tivjp 
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5SCA 

F0DC 

0470 

BEQ 

7M0DERR 


56CC 

202D39 

0480 

JSR 

MS TAT 


56CF 

ADED02 

0490 

LDA 

749 


56D£ 

D0E9 

0500 

BNE 

?GFF0 


56D4 

AD7756 

0510 

LDA 

7LCHAR 


56D7 

20C138 

05£0 

JSR 

WRITE 


56DA 

A93C 

0530 

LDA 

#60 


5 6 DC 

8D7856 

0540 

ST A 

? TMP 


56DF 

CE7856 

0550 

? F X A DEC 

: 7 TMP 


es; c er o 

F0C4 

0560 

BEQ 

7MGDERR 


56E4 

202D39 

0570 

JSR 

MSTAT 


56E7 

F0F6 

0580 

BEQ 

? F X A 


56E9 

20A838 

0590 

JSR 

READ 


56EC 

20E35A 

0600 

JSR 

hlL P C 


SAPP* 

y*mf >MC WlW 1 

60 

06 1 0 

RTS 





06£0 

it 

9 



56F0 

48 

0630 

ASECGND 

PH A 


56F1 

8E7A56 

0640 

SIX 

X TMP 


56F4 

A250 

0650 

LDX 

#80 


56F6 

A514 

0660 

? X A LDA 

$14 


56F8 

C514 

0670 

? AS 1 CMP 

! $14 


56FA 

F0FC 

0680 

BEQ 

? AS 1 


56FC 

CA 

0690 

DEX 



56FD 

D0F7 

0700 

BNE 

? X A 


56FF 

AE7A56 

0710 

LDX 

XTMP 


570£ 

68 

07 £0 

PLA 



5703 

60 

0730 

RTS 





0740 

m 

f 



5704 


0750 

GOODMOD 



5704 

A900 

0760 

LDA 

#0 


5706 

8514 

0770 

ST A 

$ 1 4 


5708 

85 1 3 

0780 

STA 

$13 


570 A 

A5 1 3 

0790 

76MD1 LDA $13 


570C 

C90A 

0800 

CMP 

#10 

§45 SECONDS. « . 

570E 

F03D 

0810 

BEQ 

IWQUT2 


5710 

ADFC02 

08£0 

LDA 

CH 


5713 

C9FF 

0830 

CMP 

#$FF 


5715 

D030 

0840 

BNE 

IW0UT1 


5717 

£02039 

0850 

JSR 

MSTAT 


57 1 A 

ADEB02 

0 8 6 0 

LDA 

747 


57 ID 

F0EB 

0870 

BEQ 

7BMD1 


57 IF 

20A838 

0880 

J SR 

READ 


*?7pp 

w c Lm Ih. 

C94F 

0890 

CMP 

#’ G 

? OKAY 

57£4 

F00F 

0900 

BEQ 

rob 1 


5766 

C943 

0910 

CMP 

#’ C 

s CONNECT 

7 

57£8 

F00B 

09£0 

BEQ 

?G81 


572A 

CS45 

0930 

CMP 

#’ E 

§ fc. R R 0 R 

57 ac 

F007 

0940 

BEQ 

?0G1 


57 2E 

C94E 

0950 

CMP 

#’ N 

5 NO CARRIER 

5730 

F003 

0960 

BEQ 

?G01 


r-' “7 ^ 

wi / 

4C0457 

0970 

JMP 

GOODMOD 




0980 

m 



5735 

48 

0990 

?GG 1 PH A 


5736 

£0A 838 

1 000 

?6G£ JSR 

! READ 

5 GET EOLN CHAR 

5739 

C93 1 

1010 

CMP 

# ? 1 

§ CONNECT 1 £00 

573B 

D003 

10£0 

BNE 

?003 


573D 

8D7956 

1030 

STA 

HSPEED 


5740 

£09A56 

1040 

?003 JSR 

: ?EOLN 

§ EOLN 
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5743 

D0F1 

1050 

BNE 

?G6£ 

5745 

68 

1 060 

PL A 


5746 

60 

1070 

RTS 




1080 

a 

*1 


5747 

A941 

1090 

IW0UT1 LDA # 9 A 

5749 

£00138 

1 1 00 

JSR 

WRITE ; CfiLL OFF THE DOGS 

574C 

60 

1110 

RTS 




1 1£0 

* 


574D 

A9£i 

1130 

IwDUT£ LDA #33 

574F 

E05O5A 

1 1 40 

J S R 

PL I NE 

t~r ~7 tsr 

U / vJ U. 

£04 ISA 

1 150 

JSR 

GET KEY 

irr -t c.; tr 

W i WW 

68 

1 160 

PL A 


5756 

68 

1170 

PL A 


5757 

4CAD4D 

1 1 80 

JMP 

MENU 



1190 

tt 

? 


575A 

E0F056 

1 £00 

AST JSR 

ASECOND 

5750 

AC7056 

1210 

LDY 

MAG A I N 

5760 

8C7B56 

1 E£0 

STY 

LOT 

5763 

AC7B56 

1 £30 

?FF1 LDY LOT 

5766 

B97D56 

1 £40 

LDA 

MAG A I N, Y 

5769 

£0B556 

1 £50 

JSR 

PMCOMM 

576C 

CE7B56 

1£60 

DEC 

LOT 

576F 

D0F£ 

1 £70 

BNE 

?FF 1 

5771 

60 

1 £80 

RTS 




1 £90 

tt 

* 


5778 

AC9556 

1300 

ATDT LDY 

' MOIL 

5775 

8C7B56 

1310 

STY 

LOT 

5778 

AC 7 B 56 

13£0 

ATDT 1 LDY LOT 

577B 

B99556 

1330 

LDA 

MOIL, Y 

577E 

£08556 

1340 

JSR 

PMCOMM 

5781 

CE7B56 

1 350 

DEC 

LOT 

5784 

D0F£ 

1 360 

BNE 

ATDT 1 

5786 

60 

1370 

RTS 




1380 

« 


5787 


1390 

A TV® 


5787 

AC8056 

1400 

LDY 

SETD 

578A 

AC7BSA 

1410 

STY 

LCT 

5780 

AC7B56 

1 4£® 

?SD1 LDY 

, LCT 

5790 

B98056 

1 4^0 

LDA 

SET Dj Y 

5793 

£0B556 

1 440 

JSR 

PMCOMM 

5796 

CE7B56 

1450 

DEC 

LCT 

5799 

D0F£ 

1460 

BNE 

?SD1 

579B 

60 

1470 

RTS 




1480 

»t 




1 490 

; ENTRY POINT FROM MAIN 



1 500 

m 

¥ 


5790 

£07139 

1510 

DIAL JSR 

! CLOSE 

57 SF 

£0C84£ 

15£0 

JSR 

□EDIT 

57A£ 

ADAC04 

1 530 

LDA 

DIAL ADD 

57A5 

8508 

1540 

ST A 

DIALBF 

57A7 

ADAD04 

1 550 

LDA 

DIALADD4-1 

57 A A 

8509 

1 560 

ST A 

D I ALBF-+* i 

57AC 

A900 

1 570 

LDA 

#0 

57 AE 

8DAB04 

1560 

ST A 

PLCNT 

57B1 

SDAF04 

1590 

ST A 

OIALF 

57B4 

A900 

1600 

PLGOP LDA #0 

57B6 

904803 

1610 

ST A 

jL I*** <L< 

57B9 

9D4903 

1 6£0 

ST A 

I CBLH* X 

H 
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57BC 

A90B 

1630 

L .DA 

#CPUTC 

57BE 

904803 

1 640 

ST A 

ICCMD, X 

57C1 

ADAB04 

1650 

LDA 

PLCNT 

57C4 

18 

1 660 

CL C 


57C5 

6930 

1670 

ADC 

#*30 

57C7 

8056E4 

1680 

JSR 

CIOV 

57CA 

A989 

1690 

L0A 

) 

57CC 

£056E4 

1700 

JSR 

CIOV 

57CF 

A920 

1710 

LDA 

#*20 

5701 

8056E4 

1 780 

JSR 

CIOV 

5704 

A5C8 

1730 

LDA 

D I ALBF' 

57D6 

904403 

1740 

ST A 

ICBAL, X 

5709 

A5C9 

1750 

LDA 

D I ALBF +• 1 

57 DB 

904503 

1 760 

ST A 

I CBAH, X 

57DE 

A909 

1770 

LDA 

#CPUTR 

57E0 

904803 

1780 

ST A 

ICCND, X 

57 E 3 

A988 

1 790 

LDA 

#34 

57E5 

904803 

1800 

ST A 

I CBLL 9 X 

57ES 

8056E4 

1810 

JSR 

C 1 0 V 

57EB 

A5C8 

1820 

LDA 

D I ALBF 

57ED 

18 

1830 

CLC 


57EE 

6983 

1840 

ADC 

#35 

57F0 

85C8 

1850 

SI A 

D I ALBF 

57F8 

9008 

i860 

BCC 

NOCARY 

57F4 

E6C9 

1870 

I NC 

DIALBF+i 

57 F6 

EEAB04 

1 880 

N0CARY 

INC PLCNT 

57F9 

ADAB04 

1890 

LDA 

PLCNT 

57 FC 

C90A 

1900 

CMP 

# I 0 

57FE 

D0B4 

1910 

BIVE 

PL GOP 



1 980 

» 

•J 




1930 

: DONE PRINTING P 



1940 

14 

? 


5800 

80DD5A 

1 950 

JSR 

CRET 

5803 

AD9E04 

I960 

LDA 

ANSFL0 

5806 

0007 

1970 

BNE 

ftiMSF 1 

5808 

A9 i 0 

1 980 

LDA 

# 1 6 

580A 

8D9F04 

1 990 

ST A 

IN VST 

580D 

0005 

£000 

BNE 

ANSF44 

580F 

A914 

2010 

ANSi~ 1 LDA #80 

581 1 

8D9F04 

2020 

ST A 

I N VST 

5814 

A916 

2030 

ANSF44 LOA #88 

5816 

805C5A 

2040 

JSR 

PLINE 

58 1 9 

ADB004 

8050 

LDA 

QD I AL 

58 1C 

0007 

8060 

BNE 

YESSIR 

en r~ 

o X c. 

A91 1 

8070 

LDA 

# 1 7 

5820 

8D9F04 

8080 

ST A 

IN VST 

&Z£X O 
JOC w 

0005 

2090 

BNE 

FRAN 1 

SAPS 

j> n1 . «. rl f 

A915 

8100 

YESSIR LDA #81 

5887 

8D9F04 

8110 

STA 

IN VST 

588A 

A9 1 7 

8180 

FRAN i LDA #83 

588C 

805C5A 

8 1 

JSR 

PL I NE 

cr q rr 

vJ O 3 

A018 

8x40 

PREST LDY #84 

5831 

98 

8 1 50 

HARPO TYA 

583E 

805C5A 

8 1 60 

JSR 

PL I NE 

k;:q "ycr 
•JwvJvJ 

ca 

8170 

I NY 


5836 

C01F 

8 1 80 

CPY 

#31 

5838 

D0F7 

8190 

BNE 

HA RPO 

583A 

80F430 

8800 

JSR 

STL I NE 


PHONE #* S 


P9GE as 


D8 2 MENU8* MS 


w 


583D 

804 1 59 

££ 1 0 

9KEV? JSR GET KEY 

5840 

0941 

£££0 


CMP #* 9 

5848 

F06F 

8830 


BEG CH9NSWR 

5844 

0948 

££40 


CMP #’ B 

5846 

D00B 

££50 


BNE C? 

5848 

9901 

££60 


LD9 #1 

5649 

4DB004 

££70 


EOR QDI9L 

584D 

8DB004 

££80 


ST9 QDI9L 

5850 

4C9C57 

££90 


JMP DIPL 



£300 

n 

9 


w vJ w W 

C943 

£310 

0? 

CMP #’C 

5 A 55 

w U? w v.*/ 

F067 

8vi80 


BEQ CHD I 9L 

5857 

0944 

£330 


CMP #» D 

5859 

0003 

£340 


BNE E? 

5858 

407559 

£350 


JMP CHCHPM 



8 \3 6 0 

■ 

9 


585E 

0945 

£370 

E? 

CMP #’ E 

5860 

0006 

£380 


BNE F? 

5868 

809058 

£390 


JSR CLOG 

5865 

409059 

£400 


JMP CHL09D 



£410 

* 

9 


e::; Q C O 
v.J ODO 

0946 

£4£0 

F? 

CMP #’ F 

5869 

0003 

£430 


BNE 0? 

586C 

4C0F59 

£440 


JMP CHS9VE 



£450 

» 

R 


586F 

0947 

£460 

0? 

CMP #* G 

5871 

0009 

£470 


BNE 9KEY? ; H9NGP 

5873 

4C9D4D 

8460 


JMP MENU 



8490 

t» 

? 


5876 

£09039 

£500 

H9NGP JSR OP E N M 8 ? C H 9 N 0 E 1 F D T R 0 K 

5879 

80F056 

£510 


JSR flSECOND ?N0S0 IF ttVttTEX 

587C 

9C8B56 

£3£0 


LDY PLUS 

587 F 

B9AB5A 

km* mf W LJ W 

£530 

?HGP1 LD9 PLUS, Y 

5888 

£00138 

£540 


JSR WRITE 

5885 

88 

£550 


DEY 

wOOO 

D0F7 

£560 


BNE 7HGP1 

5AAA 

wJ V*? V/ 

£0F056 

£570 


JSR 9SEOOND 

SAAR 

£00457 

£580 


JSR GOOD MOD 

588E 

9CBF56 

8590 


LDY H9N0 

5891 

nnnr cr /r 

£?!?or uJO 

8600 

?HBP 

'£ LDP H9N0, Y 

5894 

£00138 

86 1 0 


JSR WRITE 

5897 

88 

£680 


DEY 

5898 

D0F7 

£630 


BNE ?H0P8 

5899 

£07139 

8640 


JSR CLOBEM 

589D 

409057 

£650 


JMP DIPL 



£6601 

at 

9 


5890 

903040 

8670 

CLOG 

LDP MDISK4-7 

5893 

0933 

8680 


CMP #*33 

5895 

F005 

8690 


BEQ MUNI 

5897 

pp 7pAr 

8700 


INC MDISK+7 

58m 

0006 

P / 10 


BNE MUN3 

5890 

f' *7 P A p 
w Lm w w r w 

8780 

MUNI 

DEC MD I SK-f- 7 

589F 

CE3C4C 

8730 


DEC MDISK+7 

58 BE; 

60 

£740 

MUN3 

; RTS 



8750 

« 

9 


58B3 

9O9E04 

8760 

CH9N 

SSWR LDP PNSF’LB 

58B6 

4901 

£770 


EOR #1 

5888 

8D9E04 

8780 


S T9 9NSFLG 
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5BBB 

4C9C57 

2790 

J'MP 

DIAL 



2800 

« 

If 


58BE 

A900 

2810 

CHDIAL LDA #0 

58C0 

8D9E04 

2820 

ST* A 

ANSFLG 

58C3 

20E558 

2 8^0 

JSR 

PRNUAB 

58CS 

1003 

2840 

BPL 

CD I AL 1 

58C8 

4CAD4D 

2850 

JAP 

AENU 



2860 

m 

* 


58CB 


2870 

CDIAL1 


58CB 

A909 

2880 

L D A 

#CPUTR 

58CD 

9D4203 

2890 

ST A 

I CCD A, X 

58D0 

A5C8 

2900 

LDA 

D I AL BF 

58D2 

9D4403 

29 1 0 

STA 

ICBhL, X 

58D5 

A5C9 

292 0 

LDA 

D I ALBF * 1 

58 D 7 

9D4503 

2930 

STA 

I CB AH , X 

58DA 

A923 

2940 

LDA 

'>Lf 

TT uJ 

58DC 

9D4803 

2950 

STA 

(•C C«r*/ Ik*** (*•«« 

58DF 

2056E4 

2960 

J S R 

Cl ov 

56E2 

4C1959 

2970 

JAP 

D1ALNUA 



2980 

a 


58E5 

AS IF 

2990 

PRNLMB L 

.DA #31 

58E7 

205C5A 

3000 

JSR 

PL 1 ME 

58EA 

204 ISA 

30 1 0 

BRDK1 JSR GETKEY 

58 ED 

1001 

3020 

BPL 

G00DKY 

58EF 

60 

3030 

RTS 




3040 



58F0 

C930 

3050 

GOGDKY CAP #’ 0 

5SF2 

30F6 

3060 

BA I 

BADK 1 

58F4 

C940 

3070 

CAP 

# ? 0 

58F6 

1 0F2 

3080 

BPL 

BADK 1 

58F8 

38 

3090 

qpf 

\»if i»»« Vw 


58 F 9 

E930 

3 1 00 

c q n 

#$30 

58FB 

AS 

3110 

TAY 


58 FC 

ADAC04 

3120 

LDA 

D 1 ALADD 

58FF 

85C8 

3130 

STA 

D I ALBF 

5901 

ADAD04 

3140 

LDA 

D I ALADD*! 

5904 

85C9 

3150 

STA 

DIALBF+1 

5906 

88 

3 1 60 

F I NDNUM 

DEV 

5907 

3000 

3170 

BA I 

NUMFNO 

5909 

A5C8 

3180 

LDA 

D I ALBF* 

590B 

16 

3 1 90 

CLC 


590C 

6923 

3 2 0 0 

A D C 

#35 

590E 

65C8 

32 1 0 

STA 

D I ALBF 

59 1 0 

9 002 

3220 

npp 

Jv„ « L# L/ 

ADDNC2 

5912 

E6C9 

3230 

INC 

D I ALBF* 1 

5914 

D0F0 

3240 

ADDNC2 SHE F 1 NDNU 

5916 

A900 

3250 

NUAFND LDA #0 $ 

5918 

60 

3260 

RTS 




3270 

* 

? 


59 1 9 

209D39 

3280 

DXALNUA 

JSR OPEN A 

59 1C 

20F056 

3290 

JSR 

ASECOND 

59 IF 

207257 

3300 

JSR 

AT DT 

5922 

A0F'F 

3310 

?BN2 LDY 

' #$FF 

5924 

C8 

3320 

BADMUA I NY 

5925 

B1C8 

3330 

LDA 

(D I ALBF) , 

* 

5927 

C99B 

3340 

CAP 

ati: i 

T1 a* w wJ 

5929 

F010 

3350 

BEQ 

ULDONE 

c; o O D 

%~J Z7l~JD 

C920 

3360 

CAP 

#$£0 5 
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59 ED 

F00C 

3370 

BEQ DLDONE 

5 IS terminator 

59 £F 

8C7C56 

3380 

DIGOK STY YTEMP 


593£ 

E0B556 

3390 

JSE PMCOMM 


^ 9P5 

AC7C56 

3400 

LDY YTEMP 


5938 

4C2459 

3410 

JMP BADNUM 




34 £0 

91 

9 


593B 

A90D 

3430 

DL00NE LDA #’ 


59 3D 

E0B556 

3440 

JSR PMCOMM 


594® 

20F056 

3450 

J SR AS E CON D 


5943 

£09039 

3460 

JSR 0 P E N M £ 


5946 

A901 

3470 

LDA #1 


5948 

60C93A 

3480 

STA PHONE 


594B 

8DAF04 

3490 

Sift D1ALF 


59 4 E 

£00457 

3500 

JSR 000DMQD 

H BE i 0 (OK) 

5951 

C94E 

3510 

CMP #’ N 

?M0 CARRIER 

«•*** ,» **\ HML 

***** * * J 

%. J 17 v J v..V 

F00E 

35 £0 

BEQ OTZ 


5955 

C943 

3530 

CMP #’ C 

; DIAL. . ,, 

5957 

F007 

3540 

BEQ OTZQ 

; 1 ? 5-CONNECT 

cr o cr o 
\**l 17 vJ 17 

C94F 

3550 

CMP 0 


595B 

F006 

3560 

BEQ OTZ 


595D 

4C9C57 

3570 

OTZ A JMP DIAL 




3580 

w 

9 


596® 

4CFC54 

3590 

OTZQ JMP TERM 3 




360® 

M 

? 


5963 

%•*/ nr %, j 


36 1 ® 

OTZ 


5963 

ADB004 

36£0 

LDA QD I AL 

5 AUTO REDIAL? 

5966 

F0F5 

363® 

BEQ OTZ A 


5968 

ADFC0£ 

3640 

LDA *0£FC 

5 LET ME OUT 

596B 

C9FF 

3650 

CMP #$FF 


596D 

00 EE 

3660 

BNE OTZ A 


596F 

£05A57 

3670 

JSR AST 

5 DO IT AGAIN 

5978 

4C3B59 

3680 

JMP DLDONE 




369® 

» 

9 




3700 

U 

9 




371® 

5 RETURNS STARTING ADDR OF NUMBER 



37£0 

u 

9 


5975 

80E55S 

3730 

CHCHAN JSR PRNUMB 

5978 

1003 

374® 

BPL CCHAN1 


59 7 A 

4CAD4D 

3750 

JMP MENU 




376® 

a 


5970 

A9£0 

377® 

CCHAN1 LDA #3£ 


597F 

£05C5A 

378® 

JSR PL I ME 


c; o Q O 
v-J 3QC 

A5C8 

3790 

LDA DIALBF 


5984 

9D4403 

3800 

STA ICBAL, X 


5987 

A5C9 

3810 

LDA DIALBF+1 


5989 

9D4503 

38£0 

STA ICBAH, X 


598C 

A9££ 

3830 

LDA #34 


598E 

9D4803 

384® 

STA I CELL, X 


5991 

A905 

3850 

LDA #5 


5993 

9D4£03 

3860 

STA ICCMD, X 


5996 

2056E4 

3870 

JSR CIOV 


5999 

4C9C57 

3880 

JMP DIAL 




389® 

■ 

9 


599C 

£07139 

~2 Q 1?4 

O H..WJ 

CHLOAD JSR CLOSE 


599F 

£0A559 

3910 

JSR LDNUM 


59AS 

4C9C57 

39£0 

JMP DIAL 




3930 

» 

9 


59A5 

S0FA59 

3940 

LDNUM JSR PROPEN 



PAGE 89 





59 AS 

A904 

3950 

LDA 

#4 5 INPUT 

59 AA 

9D4A03 

3960 

ST A 

ICAX1, X 

59AD 

201F5A 

3970 

JSR 

PR TRANS 

5SB0 

3017 

3980 

BHI 

CHLD 8 

59B2 

A907 

3990 

LDA 

#CG£TC 

59B4 

9D4203 

4000 

STA 

I CCMD, X 

59B7 

2056E4 

4010 

TOO 

w rX 

CIOV 

59BA 

1000 

4020 

BPL 

CHLD2 

59BC 

C98S 

4030 

CMP 

#136 ; EOF 

59BE 

F009 

4040 

BEQ 

CHLD2 

59C0 

20C842 

4050 

JSR 

□EDIT 

59C3 

202251 

4060 

JSR 

DERROR 

59C6 

800C5 1 

4070 

JSR 

WA I TKEY 

59C9 

A230 

4080 

CHLD2 LDX #*3® 

59CB 

209A42 

4090 

JSR 

CIOCB 

59CE 

60 

4 1 00 

RTS 




4110 

Rt 

* 


59CF 

£07139 

4120 

CHBAVE JSR CLOSE 

59D2 

20FA59 

4130 

JSR 

PROPEN 

59D5 

A908 

4140 

LDA 

#8 

59D7 

9D4A03 

4150 

STA 

ICAX1, X 

59DA 

201F5A 

4160 

JSR 

PRTRANS 

5900 

300A 

4170 

BMI 

CHSA2 

590F 

A90B 

4160 

LDA 

#CPUTC 

59E i 

904203 

4190 

STA 

ICCMD, X 

59 E 4 

2056E4 

4200 

JSR 

C I OV 

59E7 

1 006 

4210 

BPL 

CHS A 3 

59E9 

£02251 

4220 

CHSA 2 JSR DERROR 

59EC 

200C51 

4230 

JSR 

WAITKEY 

59E.F 

A230 

4 2 4 0 

CHSA3 LDX #$30 

59F1 

209A42 

4250 

JSR 

CIOCB 

59F4 

209D39 

4260 

JSR 

OPEN 

59F7 

4C9C57 

4270 

JMP 

D I AL 



4280 

m 

"I 


59FA 

A230 

4290 

PROPEN LDX #$30 

59FC 

209A42 

4300 

JSR 

CIOCB 

|»t H Mw 

59FF 

A509 

4310 

LDA 

$09 

5A0 1 

D 00 C 

4320 

BNE 

01 SKBT 

5A03 

A932 

4330 

LDA 

# <MCAS 8 

5A0h 

904403 

4340 

STA 

ICBAL, X 

5A08 

A94C 

4350 

LDA 

# > MCASS 

5A0A 

904503 

4360 

STA 

ICBAH, X 

5A0D 

D 00 A 

4370 

BNE 

OPDEV 

5A0F 

A935 

4380 

D I SKBT LDA # (MDXSK 

5A1 1 

904403 

4390 

STA 

IQBAL, X 

5A14 

A94C 

4400 

LDA 

# > MDXSK 

5AIS 

904503 

4410 

STA 

ICBAH, X 

5A19 

A900 

4420 

OPDEV LDA #0 

5A1B 

9O4B03 

4430 

STA 

ICAX2, X 

5A1E 

60 

4440 

RTS 




4450 

u 

9 


5A1F 

A903 

4460 

PRTRANB 

LDA # COPEN 

5A21 

904203 

44/0 

STA 

ICCMD, X 

5A24 

2056E4 

4480 

JSR 

CIOV 

5A27 

1001 

4490 

BPL 

PRTROK 

5A29 

60 

4500 

RTS 




45 1 0 

« 

5 


5A2A 

ADAC0 4 

4520 

PRTROK LDA DIALADD 
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SPED 

9D4403 

4530 

ST A 

ICBAL, X 

5A30 

ADAD04 

4540 

LDA 

D I AL ADD-*- 1 

S O'?! 

w n w 

9D4503 

4550 

STA 

ICBAH, X 

5A36 

A960 

4560 

LDA 

#$68 

5A38 

9D4603 

4570 

STA 

ICBLL, X 

5A3B 

A90 1 

4580 

LDA 

#$®i 

5A3D 

9D4903 

4590 

STA 

ICBLH, X 

5A4® 

80 

4600 

RTS 




46 1 0 

it 

9 


5A41 

BA 

4680 

6ETKEY ‘ 

TXA 

5A42 

48 

4630 

PH A 


5A43 

80A342 

4640 

JSR 

OKEYB 

5A46 

A907 

4650 

LDA 

#CGETC 

5A48 

9D4203 

4660 

STA 

ICCND, X 

5A48 

2056E4 

4670 

JSR 

CIOV 

5A4E 

8DAB04 

4680 

STA 

PLCNT 

5A51 

08 

4690 

PHP 


5A58 

209A42 

4700 

JSR 

CIOCB 

Baj/Acrer 

w r**f w w 

as 

4710 

PLP 


5A56 

68 

4780 

PL A 


5 A 57 

AA 

4730 

TAX 


5A58 

ADAB04 

4740 

LDA 

PLCNT 

5A5B 

60 

4750 

RTS 




4760 

H 

9 




4770 

U PRINTS 

LINE INDE 



4780 

* 

9 


5A5C 

8DAB04 

4790 

PLUME STA PLCNT 

5A5F 

98 

4800 

TYA 


5A60 

48 

4810 

PHA 


5A61 

CEAB04 

4880 

DEC 

PLCNT 

5AS4 

A97F 

4830 

LDA 

# <M0 

5A66 

85C6 

4840 

STA 

PLPTR 

5A6S 

A945 

4850 

LDA 

# > M0 

5A6A 

85C7 

4860 

STA 

PLPTR-*-! 

5A6C 

A000 

4870 

LDY 

#0 

5A6E 

A5C6 

4880 

LOOKCR LDA PLPTR 

5A70 

18 

4890 

CL C 


5A71 

6901 

4900 

ADC 

#1 

5 A 73 

85C6 

4910 

STA 

PLPTR 

5A75 

9008 

4980 

tjpp 

Dww 

LCR 1 

5A77 

ESC 7 

4930 

I NC 

PLPTR+1 

5A79 

B1C6 

4940 

LCR 1 LDA (PLPTR) , 

5A7B 

1 0F i 

4950 

BPL 

LOOKCR 

5A7D 

CEAB04 

4960 

FNDCR DEC PLCNT 

5A80 

D0EC 

4970 

BNE 

LOOKCR 

5A88 

C8 

4980 

YA2 INY 


5A83 

A800 

4990 

LDX 

#0 

5A85 

B1C6 

5000 

LDA 

(PLPTR) , Y 

5AB7 

1004 

50 1 0 

BPL 

OKAY 

5A89 

A840 

5080 

LDX 

#$40 

5A8B 

89 7 F 

5030 

AND 

#*7F 

5A8D 

CC9F04 

5040 

OKAY CPY 1NVST 

5A90 

300A 

5050 

BMI 

□OKAY 

5A98 

C98F 

5060 

CMP 

#’ / 

5A94 

F037 

5070 

BEQ 

NONOR 

5A96 

C980 

5080 

CMP 

#$80 

5A98 

F033 

5090 

BEQ 

NQMOR 

5A9A 

0980 

5100 

ORA 

#$S0 
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5A9 C 

990004 

5110 

GOKAY STA IGBUFF, Y 

5A9F 

E040 

5 1 60 


CPX 

#$40 

5AA1 

D0DF 

5130 


BNE 

YAZ 

5AA3 

CS 

5140 


INY * 


5AA4 

A97F 

5150 


LDA 

#$7F 

5AA6 

8D9F04 

5160 


STA 

I NVST 

5AA9 

A99B 

5170 


LDA 

#*9B 

SAAB 

990004 

5180 


STA 

IOBUFF, Y 

5AAE 

A 90 1 

5190 


LDA 

# < IOBUFF -t- 1 

5AB0 

9D4403 

5600 


STA 

ICBAL, X 

5AB3 

A904 

5610 


LDA 

# > IOBUFF-*- 1 

5AB5 

91)4503 

5660 


STA 

IGBAH, X 

SABS 

A928 

5630 


LDA 

#40 

SABA 

9D4S03 

5640 


STA 

ICBLL, X 

SABO 

A900 

5650 


LDA 

#0 

SABF 

9D4903 

5660 


STA 

ICBLH, X 

SACS 

A909 

5670 


LDA 

#CPUTR • 

SAC 4 

9D4E03 

5680 


STA 

ICCMD, X 

5AC7 

8056E4 

5690 


JSR 

CIGV 

5ACA 

68 

5300 


PLA 


5ACB 

AS 

53 1 0 


7 AY 


5ACC 

60 

££' “S- O tTj 


RTS 




5330 

u 

? 



5ACD 

A67F 

5340 

NOMOR LDX #$7F 

SACF 

8E9F04 

5350 


ST X 

I NVST 

5AD8 

D0C8 

5360 


BNE 

OOKAY 

SAD4 

A90B 

5370 

ALLPX LDA #$08 

5AD6 

9D4E03 

5380 


STA 

I CCOW, X 

5AD9 

E056E4 

5390 


JSR 

C I OV 

SADC 

60 

5400 


RTS 




5410 

M 

«» 



5ADD 

A99B 

5460 

CRET LDA #$9B 

5ADF 

D00E 

5430 


BNE 

ALLPC 

SAE1 

A9FD 

5440 

BUZZ R LDA #*FD 

5AE3 

48 

5450 

ALLPC PHA 

SAE4 

A840 

5460 


LDX 

#$40 

5AE6 

A90B 

5470 


LDA 

#$0B 

SAES 

9D4E03 

5480 


STA 

ICCOM, X 

SAEB 

A900 

5490 


LDA 

#0 

SAED 

9D4803 

5500 


STA 

ICBLL, X 

5AF0 

9D4903 

5510 


STA 

ICBLH, X 

5AF3 

68 

5560 


PLA 


SAF4 

E056E4 

5530 


JSR 

C I ov 

5AF7 

60 

5540 


RTS 




5550 

a 

* 



SAFE 

454F46 

5560 

EWDPR - i 

BYTE "EOF" 



5570 

a 

9 



5AFB 


5580 


„ END 


ASSEMBLY ERRORS s 0 


16115 BYTES FREE 
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3098 

A 1 ? 

30B6 

A8? 

30 BB 

A3? 

30C9 

A4? 

38D6 

A5? 

30FS 

AS? 

30FA 

A 7 ? 

=0006 

ACK 

5914 

ADDNC8 

=DS00 

AFP 

5830 

AKEY? 

5AE3 

ALLPC 

0 8 0 3 

ALLPOT 

5AD4 

A L L P X 

58 0F 

ANSF 1 

5814 

ANSF44 

049E 

ANSFLG 

56F0 

ASECOND 

5 75 A 

AST 

5778 

ATDT 

5778 

ATDT1 

5787 

ATV0 

=0801 

AUDC1 

=0808 

AUDCTL 

=0800 

AUDF1 

=0808 

AUDF8 

=D8®4 

AUDF3 

= D 8 ® 6 

AUDF 4 

3147 

Bl? 

3158 

B8? 

5584 

BADBUF 

58EA 

BAOK 1 

5984 

BADNUM 

3AC5 

BAUD 

364E 

BAUD IN TBL 

HMa 

363E 

BAUDOUT TBL 

•wta 

nr er 

| * .•aa* 

UJ W U. La 

BDEFLT 

0487 

BOFLG 

3AC8 

BFPTS 

54A5 

BFULL 

3 IDS 

BID! 

3 IDA 

8108 

38F7 

B I G X 1 0 

4351 

B INDEX 

0491 

B I NF 

0498 

BITBF 

3FE 7 

BLKNUM 

4354 

BLOOP 

4FD0 

BMENU 

4C0B 

BMES1 

4C 1 8 

8MES8 

4C5A 

BMES3 

54 66 

BOK 

048A 

BOTBUF 

= 001 1 

BRKKEY 

0096 

BUF F 

5518 

BUFF? 

0080 

BUFFER 

04AE 

BUFFN 

5 1 5F 

BUFFSZ 

048C 

BUFMAX 

4318 

BUF OK 

= 00CC 

BUFPTR 

5598 

BUF USED 

4074 

BUGG 1 

3ED9 

BUG 68 

5AE 1 

BUZZ R 



3 1 60 

Cl ? 

3168 

C8? 

3170 

L/O : 

w* Ju / £L 

C4? 

3188 

C5? 

3180 

C6? 

3188 

C9? 

5853 

C? 

4F35 

CA 

= 0018 

CAN 

=0080 

CARDETLO 

4E®8 

CARND 

3B6F 

CARGK 

4DAA 

CASBT 

0494 

CASFLG 

4F3C 

CB 

4F43 

CC 

5970 

CCHAN1 

=000 L 

CCLOSE 

4F0C 

CCTL 

4F4A 

CD 

Rflrpi 

w w w L? 

CDIAL1 

4F51 

CE 

4F58 

CF 

=0007 

CGETC 

=0005 

CGETR 

=08F“C 

CH 

p [4ata taa- ’«a*^i 

4b 6 7 

CHI 

=0401 

CHACTL 

58B3 

CHANSNR 

37 A 1 

CHAR 

=08F3 

CHART 

=®8F4 

CHBAS 

=0409 

CHBASE 

5975 

CHCHAN 

q *q CT 
w O iTT 1 Cl 

CHD XAL 

3ABB 

CHKSUM 

59C9 

CHLDS 

599C 

CHLGAD 

59E9 

CHSA8 

59EF 

CHSA3 

59 CF 

CHSAVE 

4F7C 

CX 

489A 

CXOCB 

=E45S 

CIOV 

4F8B 

CJ 

500A 

CK 

5 b F 8 

CKDQPN 

5031 

CL 

4D9D 

pi pcrp 

W IUin La Uaaa t A 

= FCDB 

CLICK 

4588 

CLOCKOFF 

4511 

CLDCKON 

58A0 

CLOG 

0485 

CLGK 

3AD5 

CLQ0P1 

3971 

CLOSE 

3 1 FB 

CLOSET 1 

3 1 F0 

CLOSECON 

398E 

CLOSED 

397 1 

CLOSEM 

5038 

CM 

5406 

CM PC 

4F06 

COF 

=001 A 

COLBK 

0497 

COLFL0 

=0804 

COLOR® 

=0016 

COLPF0 

=0018 

CGLPM0 

"2 CT O Q 

Vaai law K ■— aa/ 

CONI 

3BBE 

C0N76 

37A8 

CONCUR 

3E87 

CONGO 

=00 IF 

CONSOL 

3084 

CONTI 8 

456 1 

CONVCL 

=0003 

COPEN 

cr **”i “V (Ti 

58 / 8 

COPYBF 

503F 

CP 

5064 

CP® 

505B 

CPI 

5069 

CPSTR 

= 0®0B 

CPUTC 

=0009 

CPUTR 

58CA 

CPYCAS 

5366 

CPY0N1 

cr c. 

w W vT"? j 

CPYDONE 

5388 

CP Y LOOP 

5394 

CP Y MOD 

5308 

CPY0K1 

58 DC 

CP Y OP 1 

53B6 

CPYOPN 

5ADD 

CRET 

4D9F 

CRLOOP 

5107 

CRUD 

388C 

CRX 

= 0®0D 

CSTATUS 

44BD 

CSVBK 

44BB 

CSVBK I 

506 F 

CT 

388D 

CIS 

=0884 

■>»'»» V 

CWBLKO 

= 0888 
^aa Vaw Fm«i Biw 

CVVBLKI 

4F38 

CXF 

3185 

03? 

4C69 

DANUM 

=030A 

DAUX1 

=030B 

DAUX8 

=0305 

DBUFHI 

=0304 

DBUFLO 

=0309 

DBYTHX 

=8308 

DBYTLO 

=®308 

DCOMND 

=030® 

DDEVIC 

04 B 8 

DEFCHH 

04B 1 

DEFCLR 

588D 

DELBF 

5849 

DELYES 

3AC4 

DERFLG 

1 £* O *1*4 

U X d 

DERROR 

5558 

DEYDN 

5550 

DEYLP 

579C 

D I AL 

®4AC 

DIAL. ADD 

=0008 

DIALBF 

04AF 

DIALF 

^9 1 9 

DXALNUM 

ks; o -l* cr 

S_J 17 i~ IT 

0 1 GGK 

56 1 8 

D INPUT- 

55F3 

DIRBCK 

c.cnn 

xJ 

D X RD X SK 

5103 

DIRDGNE 

5099 

DIRECT 

50F8 

DIRERR 

=000 1 

D X SK 

5A0F 

DISKBT 

0498 

DISKF 

4496 

DXSKFUN 

55DB 

DXSKMOD 

3® 1C 

DL8T 

3000 

DLDAT 

59 3 B 

DLDONE 

=0483 

DLISTH 

=0408 

DLXSTL 

=0400 

DMACTL 

458E 

DOCLK 

4555 

DOCOLON 

3F 17 

OONT 

5S3F 

DOPNOK 

=000C 

DOS IN I 

350 1 

DOS I N I T 

36 8 F 

DOS IN I OLD 

at*a« 

= ®00A 

DOSVEC 

56 1 3 

DOUTPUT 

3888 

DP LX 

®49D 

DPRFLS 

55BA 

DRPROK 

=0030 

DSK 

3CAE 

DSKERR 

480B 

DSKFIX 
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43DD 

DSKFMC 

=02 FE 

DSPFLG 

382E 

DSR 

=0303 

OSTATS 

=*•0306 

DTIMLO 

3829 

DIR 

=00FE 

DTROFF 

=000 1 

DTRON 

=0301 

DUN XT 

3C1F 

DUPHLF 

0486 

DUPLEX 

0493 

DUPLF 

=02EA 

D VST AT 







585E 

E? 

3DED 

ECHO 

43B6 

EDERR 

42FB 

ED I T 

4361 

EDITLP 

4 v.J vJ Ill 

EDITOR 

4 ^CF 

EFULL 

3BE5 

ENDOPT 

5AF8 

ENDPR 

3AC6 

ENDRAM 

38 A 5 

w* JL. 6 w ■w... 4 

ENDTE1 

jfBED 

END TEST 

=0004 

EOT 

4 1 1 E 

EOTMES 

3ABD 

ERFL 

546F 

ERROK 

=0000 

EX ITT0D08 







4E22 

FI 

30F3 

F6? 

5 86 A 

w w w w 

jr 9 

=D8E6 

FASC 

38A4 

FCNX 

=DB28 

FDIV 

362 A 

FIGRPAR 

362C 

FIGRPAR. 1 

3630 

FIGRPAR. 2 

5906 

F I NDNUM 

3AB8 

FIRST BLOCK 

=DDB6 

F MOVE 

vf>6 A5 

FNCY 

5A7D 

FNDCR 

3B22 

FORSEC 

=0902 

FPX 

5205 

F PRINT 

5643 

F PROMT 

=00D4 

F R0 

4259 

FRAK 

44B7 

FRAME 

582A 

FRAN 1 

4F 1 0 

F RAN 6 

=DA60 

FSUB 

049C 

FULLF 







4627 

G0 

SA&F 

Vi»««r Ur I - 

e? 

4 EE A 

GCHCE 

5236 

GCHCE 1 

4EF2 

GCHOK 

=0007 

GETS IN 

332 1 

GETBYTE. 1 

3329 

GETBYTE. 2 

335 C 

GETBYTE. 5 

**rv y** y*- 

w*w>00 

GETBYTE. 6 

3368 

GETBYTE. 7 

336B 

GETBYTE. 8 

37CB 

GETEM 

37 A3 

GETHDR 

5A41 

6ETKEY 

3F77 

GETREC 

3F7C 

GETRTY 

33 7 A 

GETTRANS 

w *« 4 <«t y»l 

GETTRANS. 1 

3392 

GETTRANS. 

*r> 7fjc 
Oul I/O 

GETTRANS. 3 

=0007 

GETTXT 

crier c; 

Vmr ^wr L* L/ 

GFILEN 

552E 

□KEY 

3C50 

GOERR 

44 F O 

GONE 

58 F0 

GOODKY 

5704 

GOODMOD 

404F 

BOODREC 

3AC8 

GOTREC 

=026F 

6PRIQR 

=00 1 D 

GRACTL 

=001 1 

GRAFM 

=D00D 

GRAFP0 

3EE7 

GREC 

3BB 1 

GREEN 

c:; O O 
JC 3vJ 

GROCH 

OP o » 

0SOH 

3C7C 

□TERM 

44BA 

8UDNUM 

4156 

GXC 

4 1 59 

GXCHAR 





4E2C 

H0 

4E38 

HI 

568 F 

HANG 

5876 

HANGP 

3B43 

HANGUP 

5831 

HARPO 

4DA7 

HARR 

=031 A 

HATABS 

04E<0 

HDRBFF 

44 A 5 

HIP? 

=0014 

U T TPI & 

1 p J* f w pv 

=0004 

HPQSM0 

= 1)000 

HPOSP0 

44B9 

HRS 

= D 4 4 

HSCROL 

5679 

HSPEED 

379F 

HVYTR 


HVYTRAN8 

3265 

HVYTRANS. 1 



4E3D 

X0 

4E4E 

I 1 

=034A 

ICAX1 

=002A 

ICAX1Z 

=0348 

ICAX2 

=0028 

ICAX2Z 

=0345 

ICBAH 

=0025 

ICBAHZ 

=0344 

ICBAL 

=0024 

ICBALZ 

=0349 

I CBLH 

=0029 

ICBLHZ 

=0348 

I CELL 

=0028 

ICBLLZ 

=0342 

ICCMD 

=0342 

I CCOM 

=0022 

ICCOMZ 

=002 1 

ICDNOZ 

=002C 

XCSPRZ 

=D9AA 

IFP 

=0080 

INBUFJLEN 

3C41 

INCH 

4 1 7 D 

INCHAR 

3D A3 

INCONV 

4324 

I NCRND 

435D 

INDONE 

04 A 7 

INI BYTE 

04A0 

INIT 

3486 

INIT. 0 

3488 

INI T . 1 

34C9 

INIT. 2 

=3901 

I N I T MO DEM 

=00CA 

INPBUF 

vi o d fc. 

INPUT 

41B6 

INTEST 

049F 

IN VST 

3691 

I N_BUFFER 

=0400 

IOBUFF 

VML .*••** «*•»« •*•**> 

F 

IOOFF 

36 1 7 

IOOFF. 1 

359A 

I OON 

?srp 

W/ Wr U/ 5«»*« 

I OON. 1 

35 F 5 

I OON. 2 

=D20£ 

I RQEN 

3596 

I RQRETURN 

=D20E 

I ROST 

3519 

IRQ VECTOR 

wfbc! 1 

I RQ VECTOR 

368D 

I RQ_OLD 

5747 

I WGUT 1 

5740 

I WGUT 2 



4E53 

J0 

4E66 

J1 

4E6D 

T •£» 

ILw*. 

4E78 

J3 

5463 

JLD 1 

3ADF 

JLP2 

4F79 

JMEN 



4E7D 

K0 

4EB0 

K 1 

4EB7 

K2 

S3DF 

KARL 

=0209 

KBCODE 

3C80 

KEEPER 

42F9 

HE YB 

04B5 

KEYF 

04B6 

KEYF2 

K." Kr, ‘jo 

•™J ul V. 1 w 

KEYQK 

cr err a 

KEYRND 

3B36 

KEYSNT 

3ABE 

KEYTOG 

44BF 

KLOK 





3AC7 

LASTCH 

5579 

LA STONE 

3AC0 

LAST RFC 

5 A 79 

LCR 1 

567B 

LOT 

544F 

LD1 

5409 

LDCAS 

54B7 

LDERR 

5436 

LDLOOP 

59A5 

LDNUM 

54 C2 

LDONE 

54 IB 

LDOPN 

i 

LF 

A,,’ 

LOADBF 

049A 

LOADF 

5A6E 

LOOKCR 

3R0D 

LOOP 1 

3865 

L00P2 

3B68 

LOOPS 

37F2 

LOOPZA 

4564 

LP1 

=0234 

LPENH 

=0235 

LPENV 

3EDB 

LUP 

3 EDI) 

LUPNOW 

40E7 

L Z P 
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457F 

M0 

=0000 

M0PF 

=0008 

M0PL 

4580 

Ml 

4638 

M10 

464C 

M 1 1 

4669 

MflS 

4680 

Ml 3 

4698 

M 1 4 

46BS 

Ml 5 

46CD 

MIS 

4SES 

M 17 

46FC 

Ml 8 

4700 

M19 

4581 

MS 

47 IE 

M80 

473E 

MSI 

473F 

MSS 

4754 

MS3 

476 A 

M84 

477D 

MS 5 

4 7 BE 

MSS 

47A7 

MS 7 

47C1 

Me! 8 

4706 

MSS 

45 A 5 

M3 

4707 

M30 

47 DE 

M3 1 

47E5 

M3S 

47F0 

M3 3 

480E 

M3 4 

488E 

M35 

488F 

M36 

4841 

M 37 

4850 

M38 

485F 

M3 9 

45C4 

M4 

4 BSE 

M40 

48 7 B 

M41 

488 A 

M48 

489F 

M43 

48A0 

M44 

48 A 7 

M45 

48BB 

M46 

4805 

M47 

4SEE 

M47P 

48FS 

M48 

48FS 

M49 

45C5 

M5 

4901 

Mi 50 

4909 

M51 

4S0F 

M5S 

49 1 7 

M53 

49SC 

M54 

4939 

M55 

4S4B 

M56 

495C 

MS 7 

4969 

M58 

4970 

MSS 

45DB 

MB 

496A 

M60 

499B 

MSI 

4SBA 

MSS 

4904 

M63 

49E3 

M64 

49F4 

M65 

4A0D 

MSS 

4A1F 

MB 7 

4 A 80 

M68 

4A3S 

MBS 

/l •&** C/ j*\ 

*r r *r 

M7 

4 A3 3 

M 70 

4A49 

M71 

4A5B 

M7S 

4A6E 

M73 

4 A 88 

M74 

4AS7 

M75 

4ABS 

M76 

4ADS 

M 77 

4AF8 

M78 

4B00 

M79 

4600 

M 8 

4B01 

M80 

4B1S 

MB 1 

4B3 1 

MSS 

4B3S 

MB 3 

4B39 

M 8 4 

4851 

M85 

4B67 

M86 

4B8A 

M87 

4BA0 

MB 8 

4BA7 

MBS 

4683 

MS 

4BAF 

MS0 

4BC0 

MSI 

4BE3 

MS 8 

4BF7 

M93 

5670 

MA8AIN 

55B 1 

MARX 

3635 

MASKHIBIT 

04BE 

MAXTOR 

4C07 

MBAUD 

4C09 

MBAUD 1 

4p7p 

“ w iw« 

MCASS 

3CB 1 

MCPERR 

5695 

MOIL 

4C35 

MDISK 

53A 1 

MDMOK 

=0£E 7 

MEMLQ 

= 0SE5 

MEMTOP 

4 0 A 0 

MENU 

4EEF 

MENU 1 

4CS4 

MERROR 

4BF9 

MFILEN 

4 4 B A 

MIN 

** 7 * 

vir oc 

MOCHR 

=0060 

MOD 

3790 

MODE 

=3901 

MODI NIT 

55C8 

MOD I SK 

4077 

MOVEBLOCK 

38E0 

MSPEC1 

38E 1 

MSP ECS 

70 c 0 

u^OCT-C. 

MSPEC3 

39SD 

MSTAT 

39SD 

MSTATS 

58 AC 

MUNI 

5 8 BP 

>**r Lt*> 

MUN3 

4C43 

MX64 

4C4E 

MX 80 





3CC5 

NAFULL 

= 00 1 5 

NAK 

3D9C 

NBEL 

3 0 A 8 

NBSP 

54AS 

NCARRY 

3096 

NCLR 

3090 

NCR 

3DFS 

NECHO 

3BA1 

NENDTE 

3C53 

NERK08 

3D81 

NERR4 

48FD 

NEW BUFF 

«D40E 

NM1EN 

=O40F 

NM IRES 

=D40F 

NM I ST 

4D8E 

NO80COL 

3DB6 

NOBEL 

3D 1 S 

NOBERR 

3B7 1 

N0BRK1 

3DBC 

nobsp 

43CS 

NOCAR 1 

43AE 

NOCARRY 

57F6 

NOCAR Y 

4147 

NOCHAR 

3DCS 

NOCL.R 

3DB0 

NOCR 

7 0 ”7 

X.J Vlr V.7 

NOCR 1 

40BB 

NQDSK 

3E5E* 

NOEKCH 

3076 

NOEOF 

5SC7 

NDFN 

3C3E 

NOGO 

3D 1 3 

NO INCH 

3D 80 

NOKEY 

5ACD 

NOMOR 

5007 

N00PN1 

3EC6 

NOOPT 

3AE0 

NOOPT 1 

3F8E 

NOP* ST 

3FD7 

NOPST8 

3FC8 

NOPSTOP 

3E3B 

NO OUT 

(*<•«• 

arte. 

N0REC3 

3 AF A 

NO RING 

3BDD 

NOSAVM 

3040 

NGSFUL 

3FB8 

NOSTS 

3BS7 

NOSTART 

3E45 

NOTAGN 

554C 

NOTBAD 

3E61 

NOTCAN 

4378 

NQTFUL 

41C5 

NOTNOW 

3DCB 

NOTRAN 

3CFD 

NOTZE 

3888 

NOWAY 

3CCE 

NOZIP 

3FA 1 

N RE MS TO 

3B14 

NS TART 

XU'j !»-'•*' 14*^ U4 

NT1ME 

5916 

NUMFND 

3 F 6 S 

NXTOK 





42C8 

□EDIT 

380E 

OFFHOOK 

5A8D 

OKAY 

4 8 A3 

OKEYB 

3074 

OLDDL 

0483 

OLDMEMTOP 

3791 

OLD VECTOR 

04 B 3 

OMTOP 

3&DF 

ONHOOK 

C t AQr 

OOKAY 

5SC0 

OP ARNO 

5 A 1 S 

OPDEV 

—3990 

OPEN 

3S0E 

OPEN* i 

3S 18 

OPEN. 8 

3951 

OPENM 

3990 

OPENMS 

3ACA 

OPFLG 

40 A3 

OPS TOP 

wi / Ac! 

ORBAUD 

s=E474 

OSRETN 

5963 

QTZ 

5950 

QTZ A 

5960 

OTZQ 

3193 

OUT? 

=0080 

OUTBUF LEN 

3085 

OUT CON 

3DCC 

OUTDO 1 

3569 

OUTPUT 

358S 

OUTPUT. 1 

358F 

OUTPUT. 8 

38 1 0 

QUIZ 

3711 

OUT BUFFER 








I 
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=000 4 

P0PF 

= D00C 

P0PL 

3F23 

PADLQP 

3830 

PAR 

•-‘pair 

W/ Ion \U l»Nl 

PARITYG 

5£0 1 

PASO 

=0200 

PCOLR0 

50BF 

PD I R 

3AC9 

PHONE 

3AF5 

PHYES 

5A5C 

PLINE 

57B4 

PLOOP 

=0407 

PMBASE 

56B5 

PMCOMM 

=0301 

PORTS 

=D£00 

POT0 

0499 

PRFLG 

=D0 1 B 

PRIOR 

=0000 

PROM 

59FA 

PRO PEN 

5A2A 

PRTROK 

=00CE 

PTR 

=000B 

PUTBIN 

3£35 

py TBYTE. £ 

w O ■»- U— 

PUTCONCUR. £ 

*~« a Ci 

w'dfoo 

PUT I T 

70^.^ 

t. 

PUTT RANG. £ 

=000B 

PUTT XT 

3F3D 

PXMES7 

3F49 

PXMES8 

04B0 

QDIAL 



=04BF 

RAM 

=D£0A 

RANDOM 

4456 

ROELT 

0480 

RDEV 

38A8 

READ 

408B 

RECLOP 

4105 

REMSTOP 

4445 

RENAME 

3D 4 A 

RET ER2 

3046 

RET OKS 

440F 

RFORMAT 

33 1 7 

RGETBYTE 

4485 

R I K 1 3 

393B 

RING? 

4467 

RLCK 

4478 

RN LCK 

3 £ 2 A 

RPUTBYTE 

3409 

RSPECIAL 

=001 a 

RTCLOK 

3FS9 

RTFOL 

3885 

RUNITZ 

3799 

RX IN_PTR 

346C 

RX I 036 

34 9C 

RX I 038 

40DF 

8AV 

049B 

SAVEF 

4083 

SAVREC 

3CBA 

SAVTOBF 

4££E 

SC READ 

0496 

SCRFLG 

=0££F 

SDMCTL 

44B8 

ccr 

N*»r Lt L/ 

32BF 

SENDBLOCK. 01 

3£C5 

SENDBLGCK. 1 

3C3B 

SENOUT 

=00D£ 

SENPTR 

=D£0D 

SERIN 

=D£0D 

SEROUT 

=E45C 

SETVBV 

=0£BE 

SHFLK 

=0008 

SI ZEP0 

=D£0F 

SKCTL 

=0001 

SOH 

34£5 

SPECIAL. 1 

4CS6 

START 

3790 

ST AT 

33C8 

STATUS. £ 

33 D 4 

STATUS. 3 

33ED 

STATUSCON 

30B7 

STERA 

=1)809 

STIMER 

3B5A 

STKEY 

■!«» |Nt« 

uEF o 

STOK 

3EFA 

S f 0K£ 

04A9 

SVBK 



4EBC 

T0 

445£ 

TDEL 

54E6 

TERM £ 

54FC 

TERM3 

443A 

TEX I T 

440B 

T FORM 

4463 

TLCK 

4340 

TOMANY 

0490 

T RANF 

444 1 

TRENA 

4137 

TST£ 

4 1 66 

TSTBUF 

3798 

TXOUT _P TR 

379B 

TX DONE 

=0007 

VBLKD 

=0006 

VBLKI 

3687 

VEC_ I 0 

3670 

VEC^SPECIAL 

5090 

VOQM 

=0405 

VSC RQL 

38E3 

WAITASEC 

5100 

WA I THEY 

44AD 

WHOOPZ 

30 £4 

W I NO A 1 

3076 

N X NOP 

3801 

WRITE 

4007 

XACKCO 

3FA8 

XBADSH 
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=D30£ 

PACTL 

=8£70 

PADDL0 

38 A 6 

PA RF LB 

3284 

PARITY! 

=0303 

PBCTL 

41E4 

PBLKNUM 

=0400 

PENH 

=0400 

PENV 

4180 

PIT 

04 A B 

PLCNT 

=0006 

PLPTR 

568B 

PLUS 

= 00 1 0 

POKMSK 

=0300 

PORTA 

=D£88 

POT GO 

5B£F 

PREST 

58E5 

PRNUMB 

3188 

PRNWIN 

=0000 

PRPTR 

5 A 1 F 

PRTRANS 

5330 

PTR INC 

534£ 

PTRGK 

7ppq 

W* 

P UT CONCUR 

u 3 0 C 

PUTCONCUR. 1 

3 £90 

PUT IT. £ 

70 Ap 

w ILm. “ L. 

PUTTRANS 

7rc-sr 

V»U 1 ‘fct.r 

PXMESI 

Vrt/ t V*W '.*•* 

PXMEB6 


3 8 £ B 

RBAUD 

3 IDE 

RTL Q9F 

1 \ V.W*- Lw WJ V*/ tw*. 

43F5 

RDIREC 

3059 

RDISK 

4110 

REM ABO R 

3E6A 

REM ROY 

3901 

RESETMODEM 

4D5F 

RESTRT 

3E64 

RETRY 1 

04 B 7 

RENAME 

43E£ 

R 1 065 

43EE 

R I K 1 1 

34 B 3 

R I N I T 

3504 

RIN IT. ST 

=567 7 

ROM 

3 £06 

ROPEN 

3398 

RSTATUS 

5686 

RSTM 

3BI 1 

RTMENU 

38EA 

RTS 

3450 

RXIQ32 

3467 

RX 1034 

34£6 

RX I 040 

379A 

RXOUT^PTR 

40CE 

SAVE LAST 

0495 

SAVMOD 

3ACB 

qrpnq 

w w r" IJ %J 

36 A 7 

SCRAT 

•— 0£3 1 

SOLS TH 

=0230 

SOL STL 

32 A 9 

SENOBLOCK 

32BD 

SENDBLGCK. 00 

7ppQ 

w# Li L/ •»/ 

SENDBLOCK. £ 

i-*-., — »> 

J tmm 1 Lm L 

w/ L.. O 

SENDBLGCK. END 

“•V* »**•* ***V / 

I** ,**•' ii- 
\lD 1— “ 

SENREC 

3E77 

SEOT 

56*80 

SETD 

4 4 F B 

SET I NT 

— CV l *Q 

SIOV 

=0000 

SIZEM 

=D£0A 

SKREST 

=020 F 

SKSTAT 

=0££8 

SRTIMR 

=0232 

S SKCTL 

38 EE 

STATUS 

33A8 

STATUS. 1 

33DB 

STATUS. 4 

33F C 

STATUS. END 

4CD8 

STERM 

=0278 

S T I CK0 

30F4 

STL I NE 

3004 

ST NAME 

=0£84 

S T R X G0 

51F5 

SUBTR 

3A35 

TEMPBUFF 

5093 

TERM 1 

4 1 A0 

TESOPT 

3B8D 

TESTER 

4£77 

T 1 60 X' 

4299 

TI80Z 

0488 

TOPBUF 

362 F 

TRAN 

= 0010 

T R 1 00 

379E 

T RNPAR 

^^7 4 

TUNLK 

3797 

TX IN PTR 

=D40B 

V COUNT 

= 0 0 1 0 

VD2LA Y 

366 E 

VEGETABLE 

=02 1 6 

V I M I RQ 

=0£0A 

VSE RIN 

= 0 2 2 2 

WBLK I 

3B06 

WCARR 

3E 70 

WHAP 

3040 

W I NDA£ 

3194 

WINMES 

= 0 4 0 A 

WSYNC 



3AC1 

XBLKNUM 

3 ABF 

X8YTE 



PftGE 96 
SYMBOLS 


4001 

X IG4 

***♦■1 •*♦•**- i 

X I G0P3 

3458 

XX03E. 1 

345F 

XI03E. E 

3496 

X I 034. 9 

3849 

X 1 036 

3 4 EE 

XI 040. 1 

3436 

X I 040 « E 

— E 46 c! 

XI7VBV 

3 cm “3 

%—T mjf A h \««r 

XMBUFF 

3F67 

XMLGftD 

4019 

XMLOP 

3E0B 

XMSftVE 

400F 

XiNUMOK 

3F7E 

X RETRY 

3Eftft 

XSEIMLP 

3ftB9 

X TEMPI 

3ftBft 

X TEMPS 

3 ft EE 

YftNSF 

5ft8E 

YftZ 

5670 

YTEMP 



4FftB 

Z38C0L 

4FD3 

Z64C0L 

4487 

ZRICft 




I) 6 s MENU i « M6 


4 1 EF 

XIGRG1 

41 Eft 

X I G REC 

383E 

XI 034 

3494 

XI 034. 1 

3867 

XI 038 

3884 

XI 040 

3430 

X I 040. 4 

34ftB 

XIORETOK 

4C6F 

XMES3 

4108 

XMEXIT 

3 OF 4 

XMODEM 

3ftBC 

XMODF 

4040 

XOK 1 

40E4 

XOKE 

4.H V .*«* 

HH ,<*4 ML 

w/ }«•»•* (•«•* 

XSNLP 

SjHtJ 7 

XTEMP 

567ft 

XTMP 



p~, o o ^ 

YESSIR 

44B6 

YSTftX 

4 FED 

Z80COL 

4E0D 

ZEPPO 


